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SIMULAÇÃO: FAÇA A BOLA ROLAR 
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O programa do MSX modificado. Funcionamen- 
to do Assembler.Como utilizar o programa. 6/9 
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PLANO DA OBRA 

INPUT é uma obra editada em fascículos semanais, e cada conjunto de 
15 fascículos compõe um volume. A capa para encadernação de cada vo- 
lume estará à venda oportunamente. 


FERIAS, VIAGENS, MUDANÇAS... 

NAO FIQUE COM A COLEÇÃO INCOMPLETA 

Se você está saindo de férias, pretende viajar ou vai se ausentar por algum 
tempo, avise antecipadamente seu jornaleiro. Ele pode guardar os seus fas- 
cículos enquanto você estiver fora. Se, por qualquer motivo, você perdeu 
alguns números, peça-os também a seu jornaleiro, ou entre em contato 
com nossa Distribuidora: 


1. Pessoalmente — Em São Paulo, os endereços são: Rua Brigadeiro Tobias, 
773, Centro, telefone 227-4188; Av. Industrial, 117, Santo André, telefone 
449-(0411, das 7h30 às 17h00 - dias úteis. No Rio de Janeiro, Av. Mem de 
Sá, 191/193, Centro, telefone (021) 222-7422, das 7h30 às 17h00 - dias úteis. 


2. Por carta — Envie para: 
DINAP — Distribuidora Nacional de Publicações 
Números Atrasados 
Estrada Velha de Osasco, 132 — Jardim Teresa 
CEP 06040 — Osasco — SP 


3. Por telex — Utilize o nº (011) 33 670 DNAP. 


Em Portugal, os pedidos devem ser feitos à Distribuidora Jardim de Pu- 
blicações Lda. — Qta. Pau Varais, Azinhaga de Fetais, 2685, Camarate, 
Lisboa; Apartado 57; Telex 43 069 JARLIS P., 

Atenção: Após seis meses do encerramento da coleção, o atendimento dos 
pedidos dependerá da disponibilidade do estoque. 

Obs.: Quando pedir livros, mencione sempre o título e/ou autor da obra, 
além do número da edição. 


COLABORE CONOSCO 

Encaminhe seus comentários, críticas, sugestões ou reclamações ao 
SERVIÇO DE ATENDIMENTO AO LEITOR 

Caixa Postal 9 442, São Paulo — SP. 
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Em artigo anterior, explicamos o que 
são os caracteres gráficos e como 
entrá-los diretamente pelo teclado. 
Trataremos aqui de sua utilização 
dentro de programas. 


Para especificar caracteres gráficos 
dentro de um programa, sem precisar 
digitá-los diretamente (veja artigo publi- 
cado à página 640), emprega-se a utilis- 
sima função CHRS. Para imprimir na 
tela um quadrado vermelho, podemos 
usar, por exemplo: 


PRINT INK 2,CHAS (143) 


O programa seguinte mostra a tabe- 
la de correspondência entre códigos nu- 
méricos e gráficos na tela dos micros da 
linha Spectrum: 


10 CLS 

20 FOR 3=128 TO 143 STEP 5 
30 FOR 1=5 TO 3+4 

40. PRINT 1;” ";CHAS(1);” €; 
50 NEXT à 

60 PRINT 

O NEXT 3 


Os caracteres são impressos ordena- 
damente em fileiras, na tela, por meio 
dos dois laços que começam nas linhas 
20 e 30 do programa. O primeiro laço 
varia J de 193 a 242 (a faixa de códigos 
correspondente aos caracteres gráficos), 
de 6 em 6. O laço seguinte percorre to- 
dos os valores numéricos existentes en- 
tre Je J+s5. 

O PRINT da linha 60 serve para en- 
cerrar uma fileira de seis códigos e suas 
representações gráficas. Estas são exibi- 
das pela linha 40. 





LINHAS LONGAS 


Se você pretende empregar caracte- 
res gráficos com certa frequência em um 
programa, convém armazenar seus có- 
digos em uma variável alfanumérica. 
Assim, ficará bem mais fácil utilizá-los, 
e você não terá necessidade de consul- 
tar a todo momento a tabela de códigos 
gráficos, quando estiver desenvolvendo 
O programa. 


Da mesma maneira, quando se pre- 
tende utilizar uma cadeia de caracteres 
gráficos em vários pontos de um progra- 
ma, é interessante armazená-los em uma 
variável alfanumérica. Como o Spec- 
trum não tem a função STRINGS, que 
permite fazer isto com um único coman- 
do, será preciso escrever um pequeno la- 
co de acumulação: 


10 CLS 

20 PRINT AT 19,0;"Codigo 
Grafico (12686-143) : 7” 

25 INPUT c 

30 PRINT AT 19,0;"Comprimento 
(L=20] é 15 

40 INPUT n 

50 LET s$="" 

60 FOR i=l TO n 

70 LET s8=5S+CHRS (c) 

BO NEXT à 

90 PRINT AT 10,1;95 

95 PAUSE 100 

100 GOTO 10 


A cadeia alfanumérica S$ tem L có- 
digos, que são exibidos na tela ao mes- 
mo tempo, quando se emprega o co- 
mando PRINT S$. Este truque será 
muito útil quando você precisar usar 
com frequência, no programa, linhas de 
separação, molduras etc. 





A FUNÇÃO TO 


A função TO tem grande utilidade na 
construção de gráficos com símbolos de 
teclado, pois ela permite que se extraiam 
segmentos curtos de uma cadeia gráfi- 
ca maior. 

Suponhamos que você precise usar 
retas horizontais de diferentes tama- 
nhos, na composição de uma tela grá- 
fica. Em vez de gerar várias cadeias 
gráficas, usando a técnica do laço 
FOR...NEXT explicada anteriormente, 
você poderá gerar uma única cadeia, 
com comprimento máximo (uma cadeia 
C$, com 32 caracteres, por exemplo). 

Depois, para colocar em um ponto 
qualquer da tela do micro uma cadeia 
gráfica de doze caracteres, bastará uti- 
lizar o PRINT AT combinado com 
CS(TO 12). A função TO, no caso, ser- 
ve para extrair os primeiros doze carac- 
teres da cadeia C$, simplificando mui- 
to o processo. 
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RÁFICOS DA ROM 
NO SPECTRUM (2) 


CARACTERES INVERTIDOS 
Em alguns tipos de computador, o 


conjunto de caracteres gráficos — isto | 


é, aqueles caracteres que podem ser ob- 
tidos pressionando-se <SHIFT> <9> 
— abrange também os chamados ca- 
racteres invertidos. 

Estes nada mais são do que uma re- 
presentação ''em negativo” da forma 
usual de exibição na tela. Às duas for- 
mas — “normal” e “invertida” — apare- 
cerão diferentemente conforme a mar- 
ca do computador. 

Nos micros originais da Sinclair (o 
ZX-81 e seu equivalente norte-ameri- 
cano, o Timex), por exemplo, a repre- 
sentação normal de vídeo compõe-se 
de caracteres pretos sobre fundo cla- 
ro. O caractere invertido seria, portan- 
to, branco sobre fundo preto. Como o 
fundo normal de tela é branco, os ca- 
racteres invertidos aparecem como um 
retângulo preto, com o caractere im- 
presso em branco. Já a cor clara do 
fundo dos caracteres em vídeo normal 
fica igual ao fundo da tela. Esse tipo de 


“CARACTERES GRÁFICOS 
DENTRO DO PROGRAMA 
A FUNÇÃO CHR$ 

LINHAS LONGAS 

A FUNÇÃO TO 





representação de vídeo é caracteristi- | 


co dos modelos nacionais da Microdigi- 
tal (TK-82C, TK-B3 e TK-B5). 

Alguns outros computadores nacio- 
nais, entre eles o CP-200, da Prológi- 
ca, têm tela com fundo preto, normal- 
mente, e exibem caracteres claros. 
Aqui, o caractere invertido, obtido com 
<SHIFT><9>, é escuro sobre fundo 
claro. 

Existem, ainda, alguns modelos que 
permitem ao usuário mudar de vídeo 
preto para branco, conforme sua con- 
veniência, por meio de um interruptor 
colocado no console. 

Os caracteres invertidos têm diver- 


sas aplicações. São utilizados, particu- | 
larmente, para realçar determinados ti- 


tulos, rótulos ou mensagens numa te- 
la. Alguns deles — como ponto, dois 
pontos, asterisco, barra e a letra O — po- 
dem ser incorporados como elementos 
gráficos na composição de um desenho. 









Neste jogo de estratégia empresarial, 
o jogador desempenha o papel de dono 
de uma companhia de mineração. Seu 
dever é cuidar para que o empreendi- 
mento prospere ao máximo. Como du- 
rante o jogo muitas opções lhe são ofe- 
recidas, a sorte da empresa dependerá 
de sua capacidade de tomar decisões. 

Jogos de estratégia, assim como de 
aventuras, são geralmente escritos em 
BASIC, não havendo necessidade de se 
recorrer a rotinas em código. Como eles 
também não incluem longos textos e co- 
mentários, são compatíveis com micros 
de pouca quantidade de memória. Em- 
bora nosso jogo tenha sido enriquecido 
com rotinas gráficas que ilustram o pro- 
cesso de mineração — o que aumentou 
o espaço de memória utilizado —, O 
programa cabe nos micros de 16X, 

Apresentaremos o programa em duas 
partes, pois ele é bastante longo. Trata- 
remos aqui de sua parte central, mas al- 
gumas das rotinas essenciais para fazé- 
lo funcionar só serão abordadas no pró- 
ximo artigo. 

Depois de digitar esta primeira seção, 
grave o programa e aguarde a publica- 
ção da parte que o completa. Em alguns 
computadores, se o programa for exe- 
cutado neste estágio, a tela será preen- 
chida com diversas informações sobre O 
status do jogo, além de uma série de op- 
ções. Contudo, surgirá também uma 
mensagem de erro, uma vez que o pro- 
grama está incompleto. 





OS OBJETIVOS DO JOGO 


Quando o jogo começa, o jogador 
tem um saldo a seu favor — à compa- 
nhia de mineração e 2 milhões em di- 
nheiro. Sua tarefa é investir estes recur- 
sos inteligentemente, na busca do pre- 
cioso metal. O objetivo do jogo é reu- 
nir a maior quantia de dinheiro possi- 
vel em trinta rodadas. O jogo permite 
que uma pessoa jogue sozinha ou que 
duas joguem ao mesmo tempo. 

A cada lance, o jogador se vê diante 
de várias opções. Antes de começar as 
escavações, precisa encontrar um local 
promissor; para isso, deverá destinar 


E certa quantia à contratação de um geó- 


logo que lhe forneça uma avaliação pro- 
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fissional. O jogador será, então, infor- 
mado sobre suas chances de encontrar 
ouro e da provável profundidade e di- 
mensões do veio. A responsabilidade de 
decidir se vale a pena explorar determi- 
nada mina é sua. 

Como o trabalho de escavação e ga- 
rimpagem envolve altas somas, poderá 
ser conveniente investir na pesquisa e de- 
senvolvimento de equipamentos que re- 
duzam os custos da operação. Ou tal- 
vez seja melhor começar logo as esca- 
vações — só o jogador pode decidir. Se 
ele iniciá-las, gráficos coloridos ilustra- 
rão o progresso do trabalho. Caso não 
encontre ouro, precisará resolver se va- 
le a pena continuar a prospecção ou se 
é melhor abandonar a mina e partir pa- 
ra outra. 

No decorrer do jogo, dois outros fa- 
tores influem nos resultados. Uma vez 
encontrado o ouro, pode-se guardá-lo 
em cofre-forte ou vendê-lo no mercado. 
E razoável guardar o metal, se não hou- 
ver necessidade imediata de dinheiro; 
pode ser vantajoso esperar por uma boa 
cotação para vendê-lo — a cotação flu- 
tua durante o jogo. Contudo, armaze- 
nar ouro é arriscado, pois há ladrões por 
toda parte e, quanto maior a quantida- 
de, maior a tentação. 

A segunda parte do programa cuida- 
rá dos detalhes do funcionamento do jo- 
go. Agora, digite a primeira parte. 


5 BORDER 6: PAPER 6: INK O: 
CLS 

10 PRINT AT 9,2;"Quantos joga 

dores? (1 ou 2)": LET aS= 

INKEYS: IF a$="" THEN GOTO 

10 

20 IF aS<"l” OR a$S>"2” THEN 

GoTo 10 

30 LET p=VAL aS: LET nop=Dp 

40 DIM a(2,6): DIM c(2,5): 

DIM aS(p,8): DIM r(2): LET er 

=10000 

S0 LET r(1)=0: LET r(2)=0: 

LET a(1,1)=2000000: LET a(l,2 

/=2000000: LET a(2,1)=2000000 
LET a(2,2)=2000000: LET a(l 

.3)=0: LET àa(2,3)=0: LET all, 

4)=100000: LET a(2,4)=100000: 
LET a(1,5)=0: LET a(2,5)=0: 

LET a(1l,6)=0: LET a(2,6)=0: 





Entre no mundo dos grandes riscos 
— e grandes lucros. Você é dono de 
uma empresa de mineração. Terá 
astúcia e talento para tomar decisões 
e coragem para levá-las a cabo? 





































































OBJETIVOS DO JOGO AQ PROGRAMA 


=. < 

[] UM OU DOIS JOGADORES E | OFERTA DE OPÇÕES 
% A PRIMEIRA TELA AQ JOGADOR 
iz SALDOS E CUSTOS E ROTINA DOS LADRÕES DE OURO 
| E 


COMO DAR INFORMAÇÕES tz EFEITOS SONOROS 











PRINT 
70 FOR n=1 TO p: INPUT “Nome 
do jogador *";(n);"?7", LINE as 
(n): NEXT n 
200 FOR n=1l TO 30: FOR m=1 TO 
nop 
202 BORDER 7: PAPER 7: INK O: 
CLS 
210 PRINT PAPER 6;n: PRINT 
PAPER 1; INK 6;AT 0,4;" MIN 
A DE OURO 
220 PRINT 'TAB 1l6;aS(1);: IF n 
op=2 THEN PRINT TAB 24;a5S(2); 
230 PRINT '"SALDO TOTAL 5”; 
TAB 15;a(l,1);: IF nop=2 THEN 
PRINT TAB 24;a(2,1); 
240 PRINT '"DINHEIRO - ue 
TAB 15;a(l,2);: IF nop=2 THE 
PRINT TAB 24;a(2,2); 
250 PRINT '"OURO ko”; TAB 15;a( 
1,3);: IF nop=2 THEN PRINT 
TAB 2Z4;a(2,3); | 
260 PRINT ""CUSTO P/CAVARS”; 
TAB 15;a(1l,4);: IF nop=2 THEN 
PRINT TAB 24;a(2,4); 
270 PRINT ""No. DE MINAS" ;TAB 
15:a(1,5);: IF nop=2 THEN 
PRINT TAB 24;a(2,5): 
280 PRINT '" PROFUNDID. mn" ;TAB 
15;a(1,6);: IF nop=2 THEN 
PRINT TAB 24;a(2,6); 


300 PRINT '' PAPER 4; INK 0;"C 

otacao do ouro no mercado:”: 

PRINT "58";er;" por kq de ouro” 

400 PRINT '* PAPER 5;,">-";aS(m) 

500 PRINT PAPER 2; INK 7;"1"; 
PRINT "-Pesquisa e desenvolv 

imento” 

S10 PRINT PAPER 2; INK 7;"2”"; 
PRINT "-Levantamento qeologi 

co” 

520 PRINT PAPER 2; INK 7;"3"; 

- PRINT "-Cavar mais 200 nm” 

530 PRINT PAPER 2; INK 7;"4"; 
PRINT "-Vender ouro no merca 

do” 

540 PRINT PAPER 2; INK 7;"5"; 
PRINT "-Passa a vez” 

550 PRINT : PRINT FLASH 1; 

PAPER 1; INK 6;"Faca sua opcao 


600 LET iS=INKEYS: IF 13="" 
THEN GOTO 600 
610 IF 18€<"1” OR 15>"75" THEN 
GOTO 600 4 
620 GOSUB VAL 15*1000 
700 IF a(m,2)<0 THEN GOTO 
7000 | 
710 LET er=er+INT (RND*1000)- 
200 
720 IF INT (RND*1600)-a(m,3)<0 
THEN  GOSUB 900 
740 LET a(m,l)=a(m,2)+a(m,3)* 
er 
750 PAPER 7: INK O: BORDER 7: 
CLS , 
790 NEXT m 
ROO NEXT n 
B10 PAPER 5: BORDER 5: INK O: 
CLS 
B20 PRINT FLASH 1; INK 7; 
PAPER 2Z:;AT 6,10;”" FIM DO JOGO” 





III | | E 
HI] | | | 


830 PRINT 'pS;"Saldo total de ;TAB(11):;A(0,1);:IF NO=2 THEN L  A(0,0):A4(0,3) = 10000:A(1,3) = 
";aS(1): PRINT TAB 11;"S";a(l, OCATE 20,4:PRINT A(1,1) A(O,3) 
1) 250 LOCATE 0,5:PRINT "OURO”;TAB 150 FORN = 1 TO P: PRINT : PR 
840 IF nop=2 THEN PRINT 'TAB (11);A(0,2);:IF NO=2 THEN LOCAT INT : PRINT "NOME DO JOGADOR "; 
S;"Saldo total de ";as(2): E 20,5:PRINT A(1,2) N;: INPUT AS(N - 1): IF LEN (A 
PRINT TAB 11;"S";a(2,1) 260 LOCATE 0,6:PRINT "S P/ CAVA S(N- 1)) > 8 THEN AS(N - 1) = 
850 PRINT '' PAPER 2; INK 6; Rº;TAB(11);A(0,3);:IF NO=2 THEN  LEFTS (AS(N - 1),8) 
FLASH 1;TAB 1;"Qualquer tecla LOCATE 20,6:PRINT A(1,3) 160 NEXT 
para recomecar” 270 LOCATE 0,7:PRINT “NO DE MIN 200 FOR N= 0 TO 29: FORM = 0 
860 IF INKEYS<>"” THEN GOTO AS" ;TAB(11);A(0,4);:IF NO=2 THE TO NO -1 
860 N LOCATE 20,7:PRINT A(1,4) 202 HOME 
870 IF INKEY$="" THEN GOTO 280 LOCATE 0,8:PRINT "PROFUNDI/ 210 INVERSE : HTAB 12: PRINT " 
ride /";TAB(11):;A(0,5);:IF NO=2 THEN | MINA DE OURO ": NORMAL 
900 PAPER 2: INK 6: BORDER 2: 300 LOCATE 1,10:PRINT "COTAÇÃO DO a é ARMS PRANA RR 
CLS DO OURO NO MERCADO” :LOCATE 3,11 0);AS (1); a 
905 LET 5k=INT (RND*100) +50: 'PRINT ER;"POR KG DE OURO” 230 PRINT : PRINT "SALDO TOTAL 
IF jk>Da(m,3) THEN LET jk=a(m, 400 LOCATE 12,13:PRINT AS(M) | TAB( 20);A(0,0);: IE NO = 2 
3) 500 PRINT:PRINT "1l-Pesquisa e d THEN PRINT TAB( 30) :A(1,0); 
910 PRINT PAPER 6; INK 1: esenvolvimento”" 240 PRINT : PRINT "DINHEIRO ; 
FLASH 1;AT 9,10;”" ROUBO" S10 PRINT "2-Levantamento geoló  TAB( Z0);A(O,1);: IF NO = 2 THE 
920 PRINT : PRINT INK 7;" gico ; N PRINT TAB( 30);A(L,1); 
Foram roubados ";3k;"kqg de”: 520 PRINT "3-Cavar mais 200 m 250 PRINT : PRINT COURO KG”; 
PAR PT meu ouro? CEF ala | E A, 
Riad jk: LET a(m,1lj=a(m,l a a 4-Vender ouro no mer 260 PRINT : PRINT "CUSTO P/ CA 
930 FOR x=1 TO 35: SOUND .05, 540 PRINT "5-Passa a vez VAR S"; TAB( 20);A(0,3);: IF N 
40: SOUND .05,20: NEXT x : gt é TREN PRINT TAB( 50) ;A(L 
a renio DrA D  Scn a Dn RR MM O PRINT PRINT "NOO/DE MINA 


620 ON VAL(AS) GOSUB 1000,2000, 8”; TAB( 2Z0);A(0,4);: IF NO = 2 


3000,4000,5000 THEN PRINT TAB( 30);A(1,4); 
+44 O 700 5 2c5,23c0 7755 7000 


710 ER=ER+1000*INT(RND(1))-200 


20 DIM A(1,5),C(1,4) 720 IF AND(1600)-A(M,2)<0 GOSUB 

90 SCREEN 1:COLOR 1,10,4:KEY OF 900 

F 740 A(M,0)=A(M,1)+A(M,2) *ER 

100 VPOKE BASE (6) ,4*16+4:VPOKE 750 CLS 

BASE (6) +1,6*16+6 790 NEXT M,N 

110 FOR 1=6 TO 7:VPOKE BASE(6)+ 810 CLS | | 

1,15*16+6:NEXT 820 LOCATE (5,5):PRINT "FIM DE 

120 LOCATE 0,5:PRINT "Quantos 3 JOGO” 

ogadores (l ou 2) 2; B30 LOCATE (0,7):PRINT "SALDO T 

130 AS=INKEYS:IF AS<"1” OR AS>” OTAL DE";AS(0); TAB(23);A(0,0) 

2" THEN 130 840 IF NO=2 THEN PRINT "SALDO T | 
140 P=VAL (AS) :NO=P:ER=10000:A(O OTAL DE";AS(1);TAB(23);A(1,0) Como assegurar bons resultados na 


por | procura de ouro? 
0)=-20000004:A(0O,1)=A(O,0):A(I1, B50 PRINT: PRINT "QUALQUER TECLA | - a | E 
0) =A (0,0) :A(L,1)=A(0,0):A(0,3)= PARA RECOMEÇAR” a pa o cal ils 
100000! :A(1,3)=A(0,3) 860 IF INKEY$S="" THEN 860 ELSE do e ade 
| de ES AEE pe : : RUN o comércio — atividade que, entre ou- 
e Ar e a e ENE ja 900 CLS tras coisas, inclui sorte. Por isso mes- 
NT"Nome do jogador" ;N;: | 


| =TMA . mo, é difícil dar a receita do sucesso 
RUE AG (U-1) <TE LENÇAO(N-1))28 1 Doo SS ANE a DD oa BONE OA e da fortuna. Mas algumas dicas terão 


HEN AS(N-1)=LEFTS (AS (N-1),8) 2A (Mo 2) THEN JK=SA(M, 2) ) utilidade. | 
160 NEXT 940 PRINT TAD(9) ROUBO Embora os custos de mineração | 
200 FOR N=0 TO 29:FOR M=0 TO NO 920 FRANES PRINA Ds espiçã ROUB possam ser reduzidos graças a pesqui- 
Ra ADOS v$K; NO :PRINT DE SEU OUR sa e desenvolvimento, não é aconse- 
202 FOR I=0 TO 767:VPOKE BASE(S o Pd ca A ani lhável investir grandes somas neste 
J+1,0:NEXT:LOCATE 0,0 : | ma item, já que você conta só com trinta 
204 FOR I=0 TO 31:VPOKE BASE(5) 930 PLAY"T25501CDEFBAGFED” O daden para enriquecer. 
+1,8:VPOKE BASE(5)+736+I,B:NEXT 940 FOR 1=1 TO 500:NEXT:CLS:RET Faça escavações somente em minas 
206 FOR I=0 TO 24:VPOKE BASE(5)  UBN com boa possibilidade de produzir ou- 
+1*32,8:VPOKE BASE (5)+31+1*32,8 g ro, a uma pequena profundidade. Não 
:NEXT ra [) RREO SRS PORTA fique, porém, eternamente passando a 
210 LOCATE 9,0:PRINT "MINA DE O vez, pois o jogo pode acabar antes que 
URO” 20 DIM A(1,5),C(1,4),AS(1) a mina ideal apareça. 
220 LOCATE 12,2:PRINT AS(0);:IF 120 HOME : PRINT "QUANTOS JOGA Se estocar ouro, você correrá o ris- 
NO=2 THEN LOCATE 21,2:PRINT AS DORES (1 OU 2) ?”; no: co de ser roubado, mas compare as 
(1) 130 GET AS: IF A$ < "1º OR AS chances de que isso ocorra com a co- 
230 LOCATE 0,3:PRINT "SALDO TOT > "2” THEN 130 tação do ouro vigente no mercado =— 
AL";TAB(11);A(0,0);:IF NO=2 THE 140 P = VAL (AS):NO = P:ER = 1 tente sempre vender o metal em perío- 
N LOCATE 20,3:PRINT A(1,0) 0000:A(0,0) = 2000000:A(0,1) = 





dos de alta. 
240 LOCATE 0,4:PRINT “DINHEIRO” A(O,O):A(1l,0) = A(O,O):A(1,1) =, E: o 








280 PRINT PRINT "PROFUNDIDAD 
E M”"; TAB( 20);A(0,5);: IF NO 
- 2 THEN PRINT TAB( 30);A(1, 
JS) 

300 PRINT: 

ACAO DO OURO :”": 
KG DE OURO" 


PRINT PRINT 
PRINT ER;" 


“coT 
POR 


400 PRINT PRINT TAB( 14);AS 
(M) 
500 PRINT PRINT "1- PESQUISA 


E DESENVOLVIMENTO” 


510 PRINT "2- LEVANTAMENTO GEO 
LOGICO” 

520 PRINT "3- CAVAR MAIS 200 M 
530 PRINT “4- VENDER OURO NO M 
ERCADO” 

540 PRINT "5- PASSAR A VEZ” 
600 GET AS: IF AS < Tl” OR AS 


> *5* THEN 600 

620 ON VAL (AS) GOSUB 1000,20 
00,3000,4000,5000 

700 IF A(M,1) < O THEN 7000 
710 ER = ER + INT ( RND (1) * 
1000) - 500 

720 IF INT ( BND (1) * 1600) 
- A(M,2) < O THEN GOSUB 900 


740 A(M,0) = A(M,1) + A(M,2) * 
ER 

750 HOME 

790 NEXT M,N 

B10 HOME 

820  INVERSE : HTAB 14: PRINT * 
FIM DE JOGO ": NORMAL 

830 VTAB 5: PRINT "SALDO TOTAL 
DE ";A8(0);" ":;A(O,0) 


840 IF NO = 2 THEN PRINT : PR 

INT "SALDO TOTAL DE ";AS(1);” 
T;A(1,0) 

850 PRINT PRINT : PRINT 

LQUER TECLA PARA RECOMECAR” 

860 GET AS: RUN 


m QUA 


900 HOME 

905 JK = INT ( RND (1) * 100) 
+ 49: IF JK > A(M,2) THEN JK = 
A(M,2Z) 

910 INVERSE HTAB 15: PRINT ” 
RO U B O": NORMAL 

920 PRINT PRINT “FORAM ROUBA 
DOS ";JK;" KG DE SEU OURO":A(M, 
2) = A(M,2) - JK:A(M,0) = A(M,O 
) - JK * ER 

930 FOR I =1 TO zZ000: NEXT 


940 HOME RETURN 


10 PMODE 3,1:CLS 

20 DIM H(23),T(0),D(1),B(1),A(1 
15) ,C(1,4),AS(1),R(l) 

40 FOR K=0 TO 9:READ NUS(K) :NEX 
T 
50 DATA NR2D4R2U4BR2, BFEND4ABRZ, 
R2D2L2D2R2BU4BRZ2, NR2BD2NR2BD2R2 
U4BR2, D2R2D2U4BAR2, NR2D2R2D2L2BE 
4,D4R2U2ZL2BE2BRZ2, R2ND4BR2, NR2D4 
R2UZ2NL2U2BR2, NR2D2R2D2U4BRZ 

60 PCLS 3 

70 DRAW" BM36, 23C2L I5SUGEIRINU4RS 
UlL0E2ZRE3R3F4D3F4DF2DF2DF3D2” : PA 
INT (18,16),2 


BO DRAWºBM24,9C3G2D6F5R3EZUH2ZUH 
UHZUH2BM20, INLDL 2GR5DSBM14, 6GRBR 
3RBD4DBLAUBDILBR4ARBDZ2LBLILBDZRB 
R3IRBD2LBLILBD2RBRIRBDZLBLIL":PA 
INT(26,15),3 

90 DRAW" BM2, Z21C4UBR4ND3BR4D” : GE 
T(0,0)-(37,23),H,0 

100 PCLS: DRAW“ BM7, OCALGBDZERFRE 
RBDZ2L7DA7DLSGNRIDNRIFNR4DNR4GNR 
3DNR3FNR4DR2GL3FNR6FRIFL4GNADAS 
DL 3” 

110 GET(0,0)-(7,2),T,G:GET(0,3) 
-(7,10),D,6:GET(0,11)-(7,20),8B, 
G 

120 PRINT 6129," QUANTOS JOGADOR 
ES (1 OU 2) 7”; 

130 AS=INKEYS:IF AS<"1” OR AS>* 
2" THEN 130 

140 P=VAL (AS) :NO=P:ER=10000:A(O 
,0)-2000000:A(0,1)=2000000:A(1, 
0)=2000000:A(1,1)=2000000:A(0,3 
)=100000:A(1,3)=100000 

150 FOR N=1 TO P:PRINT: PRINT:PR 
INT” NOME DO JOGADOR” ;N; :LINEIN 
PUT AS(N-1):IF LEN(AS(N-1))>8 T 
HEN AS(N-1) =LEFTS (AS(N-1),8) 
160 NEXT 

200 FOR N=0 TO 29:FOR M=0 TO NO 
-] 

202 CLS 

210 PRINT 63,"mina de ouro”; 
220 PRINT TAB(15);A3S(0);:IF NO= 
2 THEN PRINT TAB(24);AS(1) 

230 PRINT 8432,"SALDO TOTAL"; TAB 
(14) ;A(0,0):IF NO=2 THEN PRINT 
ess,a(1,0) 

240 PRINT €664,"DINHEIRO*;TAB(14 
J:;A(O,1):IF NO=2 THEN PRINT 687 
A(I,1) 

2580 PRINT €96,"0OURO kq”; TAB(I4) 
“A(O,2):IF NO=2 THEN PRINT 6119 
A(1,2) 

260 PRINT €128,"5 P/ CAVAR"C;TAB 
(14) :A(0,3) :IF NO=2 THEN PRINT 
e151,A(1,3) 

270 PRINT €160,"NO. DE MINAS";T 


AB(14);A(0,4):IF NO=2 THEN PRIN 

T 0183,A(1,4) 

280 PRINT 8192," PROFUNDI// m";T 

AB(14);A(0,5):IF NO=2 THEN PRIN 
T €215,A(1,5) 

300 PRINT €224,ºCOTACAO DO OURO 
NO MERCADO": PRINT ER;"POR KG D 


E OURO * 
400 PRINT €330,A3(M) 


500 PRINT "1l- PESQUISA E DESENV 
OLVIMENTO 

510 PRINT "2- LEVANTAMNTO GEOLO 
GICO” 

520 PRINT "3- CAVAR MAIS 200 M” 
530 PRINT "4- VENDER OURO NO ME 
RCADO * 

540 PRINT "5- PASSA A VEZ”; 

600 AS=INKEY3S: IF AS<"1” OR AS>2” 
5" THEN 600 


620 ON VAL(AS) GOSUB 1000,2000, 
3000,4000,5000 

700 IF A(M,1)<O THEN 7000 

710 ER=ER+RND (1000) -200 

720 IF RND(1600)-A(M,2)<0 GOSUB 
900 

740 A(M,0)=A(M, 1) +A(M, 2) *ER 





750 CLS 

790 NEXT M,N 

810 CLS 

820 PRINT €138,"FIM DE JOGO” 
B30 PRINT €197,"SALDO TOTAL DE” 


“AS (0) :PRINT TAB(1Í1I)J;A(O,0) 

B40 IF NO=2 THEN PRINT TAB(5);” 
BALDO TOTAL DE" ;AS(1): PRINT TAB 
(11) ;A(1,0) 

B50 PRINT 8449," QUALQUER TECLA 

PARA RECOMECAR” 

B60 IF INKEY5="" THEN 860 ELSE 

RUN 

900 CLS 

905 JK=RND(100)+49:IF JK>A(M,2) 
THEN JK=A(M,2Z) 

910 PRINT €10,"R O U B 0* 

920 PRINT:PRINT” FORAM ROUB 
ADOS”" ;JK;"KG DE”: PRINT* SEU. 


O 


OURO" :A(M,2)=A(M,2)-JK:A(M, 0) = 
à (M, 0) -JK*ER 
930 PLAY"T4OLCDEFBAGFED” 
940 CLS: RETURN 


Todos esses programas funcionam de 
maneira similar, seguindo a mesma es- 
trutura básica e a mesma numeração. 
Do início até a linha 200, contudo, há 
algumas variações. 


Para começar, a linha 10 pergunta 
qual o número de jogadores, e a linha 
20 verifica se a resposta se encontra no 


intervalo adequado. A linha 30 acerta 
os valores de p e nop de acordo com o 
número escolhido. 

Algumas matrizes são dimensionadas 
na linha 40, juntamente com a cotação 
do ouro no mercado — er. A matriz a 
armazena informações sobre o saldo dos 
jogadores; a matriz e, informações so- 
bre as minas; a matriz a$ contém os no- 
mes dos jogadores e a r é usada para in- 
dicar o começo das escavações na mina 
em questão. A linha 50 estabelece os sal- 
dos e as condições iniciais das minas dos 
dois jogadores. O valor zero é coloca- 
do em r(1) e r(2), indicando que as es- 
cavações não começaram na primeira 
mina. Outros valores são dados a seguir: 


a(1,1) e a(2,1) contêm o saldo de cada 
jogador; a(1,2) e a(2,2), o total em di- 
nheiro que cada jogador possui; a(1,3) 
e a(2,3) indicam a quantidade de ouro 
de cada um; a(1,4) e a(2,4), os custos de 
mineração; a(1,5) e a(2,5) revelam o nú- 
mero de minas de cada um e a(1,6) e 
a(2,6), a profundidade das minas. 

A linha 70 permite a entrada do no- 
me dos jogadores. 


yu 


A linha 20 dimensiona as matrizes. A 
linha 90 seleciona a tela de textos de 32 








colunas com fundo amarelo, caracteres 
pretos e bordas azuis. As teclas de fun- 
ção são desligadas, 

A tela de 32 colunas foi escolhida 
porque permite o uso de cores e de blo- 
cos gráficos, tornando o programa mais 
interessante. 

A linha 100 faz com que os oito pri- 
meiros caracteres — códigos 0 a 7 — se 
tornem blocos azuis (veja artigo da pá- 
gina 261). A mesma linha ainda faz com 
que os oito caracteres seguintes — có- 
digos 8a 15 — se tornem blocos de cor 
vermelha. 

A linha 110 determina que os carac- 
teres numéricos sejam escritos em bran- 
co sobre fundo vermelho. 

Depois desses preparativos iniciais, a 
linha 120 pergunta qual o número de jo- 
gadores. A linha 130 verifica se a res- 
posta obtida é válida — um ou dois jo- 
gadores. 

Em seguida, a linha 140 acerta o va- 
lor das variáveis P, NO — as duas iguais 
ao número de jogadores — e ER — co- 
tação do ouro. Além disso, ela estabe- 
lece os valores iniciais de vários elemen- 
tos da matriz A: A(0,0) e A(0,1), saldo 
total dos jogadores; A(0,1) e A(1,1), 
quantia em dinheiro que cada um pos- 
sui; A(0,2) e A(1,2), quantidade de ou- 
ro: A(0,3) e A(1,3), custo da mineração. 

As linhas 150 e 160 perguntam o no- 
me dos jogadores. 

O jogo do MSX, como já dissemos, 
utiliza a tela de textos de 32 colunas, 
com cor de fundo amarelo e caracteres 
pretos. Os caracteres numéricos apare- 
cem em branco sobre vermelho, enquan- 
to a tela é mantida com fundo azul. Tu- 
do isso é obtido por meio do comando 
VPOKE, que já usamos outras vezes 
(veja artigo da página 261). 


Dto 


Na versão para Apple e o TK-2000, 
nosso jogo começa dimensionando al- 
gumas variáveis na linha 20. 

Em seguida, a linha 120 pergunta 
quantas pessoas vão participar e a linha 
130 verifica a validade da resposta. A li- 
nha 140 guarda o número de jogadores 
nas variáveis P e NO, que servirão de 
contadores e sinalizadores em vários 
pontos do programa, permitindo que os 
dados de cada jogador sejam colocados 
no local correto. Essa linha ainda acerta 
o valor da cotação do ouro — ER —, 
bem como de vários elementos da matriz 
A: A(0,0) e A(1,0), saldo total dos joga- 
dores: A(0,1) e A(1,1), total em dinheiro 
que cada um possui; o par seguinte cor- 
responde à quantidade de ouro e o últi- 


mo, ao custo da escavação nas minas. 
As linhas 150 e 160 perguntam o no- 
me dos jogadores. 


A linha 10 seleciona o modo PMO- 
DE 3 e a tela é limpa. A linha 20 dimen- 
siona várias matrizes. 


Como parte do jogo acontece na te- 


la gráfica, em certos momentos é preci- 
so usar DRAW para escrever texto. As 
linhas 40 a 110 contêm a rotina para es- 
crever na tela de alta resolução, publi- 
cada em INPUT anteriormente (veja ar- 
tigo da página 232). 

As linhas 120 e 130 perguntam o nú- 
mero de jogadores e verificam se a res- 
posta é válida. A linha 140 acerta os va- 
lores de P e NO de acordo com o nú- 
mero escolhido. Em seguida, alguns dos 
elementos da matriz A têm seus valores 
iniciais estabelecidos, a saber: A(0,0) e 
A(1,0) contêm o saldo total de cada jo- 
gador; o próximo par de elementos con- 
tém os saldos em dinheiro; o seguinte, 
a quantidade de ouro que cada um pos- 
sui e o último corresponde ao custo da 
mineração. 

As linhas 150 e 160 pedem os nomes 
dos jogadores. 


ES ne bsiláio: 


Daí em diante os programas são bem 
parecidos. Todos eles têm dois laços 
FOR...NEXT que começam na linha 
200 e terminam nas linhas 790 e 800. Es- 
ses laços são responsáveis pela exibição 
do menu e da situação das companhias 
de mineração na tela. 

A variável N (n, no caso do Spec- 
trum) conta o número de rodadas já jo- 
gadas. A variável NO (nop, no Spec- 
trum) garante a oferta de trinta rodadas 
a cada jogador. Observe que, mais 
adiante na listagem, esta mesma variá- 
vel fará com que a situação das compa- 
nhias de mineração seja exibida. 

A linha 202 escolhe as cores da tela 
no Spectrum. Nos demais, ela apenas 
limpa a tela — note que no MSX isto 
é feito por uma sub-rotina que enche a 
tela com o caractere de código 0, cuja 
cor azul foi definida pela linha 110. A 
linha 210 imprime o título: MINA DE 
OURO. A linha 220 imprime o nome 
dos jogadores. O segundo nome só é im- 
presso se a opção para dois jogadores 
foi escolhida no início. 

As linhas 230 a 300 mostram os va- 
lores: SALDO TOTAL, saldo em DI- 
NHEIRO, saldo em OURO, custo para 


CAVAR, Nº DE MINAS, PROFUNDI- 
DADE da mina e COTAÇÃO DO OU- 
RO NO MERCADO. Se duas pessoas 
estiverem jogando, os dois valores serão 
impressos no local correspondente. O 
programa faz isso. com base nos valores 
das variáveis nop ou NO. 

A linha 400 mostra o nome da pes- 
soa que está jogando no momento. As 
linhas 500 a 540 oferecem as opções de 
Pesquisa e Desenvolvimento, Levanta- 
mento Geológico, Cavar mais 200 me- 
tros, Vender ouro no mercado ou Pas- 
sar a vez. No Spectrum, a linha 550 so- 
licita ao jogador que faça sua opção. 
Nos demais micros não há esta linha. 

As linhas 600 a 620 usam INKEYS$S ou 
GET para obter a resposta do jogador. 
Além disso, verificam a validade da res- 
posta e chamam a sub-rotina correspon- 
dente à escolha feita. 

A linha 700 verifica se o saldo total 
caiu abaixo de zero, terminando o pro- 
grama, se for o caso, por meio de uma 
sub-rotina de finalização. A linha 710 
faz com que a cotação do ouro flutue 
ao acaso; assim, o jogador devera ter o 
cuidado de vender o metal nas épocas 
de “alta”. 

A linha 720 compara um número 
aleatório com a quantidade de ouro do 
jogador, para decidir se haverá um rou- 
bo — observe que as chances de roubo 
aumentam com a quantidade de ouro 
armazenada. A rotina que cuida do rou- 
bo fica nas linhas 900 a 940. A linha 905 
decide quanto ouro vai ser roubado, e 
a linha 920 informa que esta quantida- 
de foi roubada. 

A linha 740 calcula o saldo total, adi- 
cionando o saldo em dinheiro ao valor 
do ouro armazenado, calculado com ba- 
se na cotação atual. 

A linha 350 restabelece as cores da te- 
la e a limpa, antes que o NEXT envie 
o programa de volta para a linha 200, 
para mais uma rodada. 

As linhas 810 a 840 contêm a rotina 
de finalização do jogo, usada quando o 
saldo de um dos jogadores cai abaixo de 
zero. Ela mostra na tela as condições fi- 
nais das companhias de mineração e in- 
forma: FIM DE JOGO. 

Finalmente, as linhas 850 a 880 per- 
mitem uma nova partida. 

Na próxima seção, adicionaremos vá- 
rias sub-rotinas que farão com que o jo- 
go funcione. Haverá rotinas para redu- 
zir os custos de mineração por meio de 
pesquisa e desenvolvimento, para fazer 
o levantamento geológico, escavar o so- 
lo e vender o ouro no mercado. Além 
disso, traremos os dados necessários pa- 
ra a elaboração dos gráficos que ilus- 
tram as minas e mostram o progresso 
das escavações. 


si ER A SE SETTE 
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Usando gráficos de baixa resolução, 
podemos criar figuras semelhantes a 
sprites. Você aprenderá a armazená-las 
em uma única variável, mesmo que 
ocupem várias linhas na tela. 


A forma mais avançada de produção 
de figuras animadas em BASIC, nos mi- 


cros da linha TRS-80, consiste na con-, 


catenação de vários caracteres gráficos 
e seu armazenamento em uma única va- 
riável alfanumérica. 

Esse método funciona muito bem, 
mesmo quando a figura ocupa mais de 
uma linha na tela. Mas, para que pos- 
samos continuar tratando a figura co- 
mo uma entidade única (por exemplo, 
para empregar a variável que a armaze- 
na dentro de um PRINTOG), precisare- 
mos incluir na sua definição caracteres 
de controle do cursor. 

Já mencionamos, brevemente, que 
certos caracteres situados na faixa do 
código ASCH que vai de O a 31 servem 
para o controle de funções do vídeo, 
quando são utilizados com um PRINT 
CHRS. Por exemplo, PRINT CHR$(23) 
dobra a largura dos caracteres na tela 
(32 colunas). 

Quatro desses caracteres nos interes- 
sam na geração de figuras com a técni- 
ca que aqui examinaremos. São os ca- 
racteres de controle do cursor: 

24 recua o cursor uma posição na 

horizontal 

25 avança o cursor uma posição 

na horizontal 

26 desce o cursor uma posição 

27 sobe o cursor uma posição 

Suponhamos que você queira dese- 
nhar na tela um pequeno disco voador, 
formado por duas linhas. Os códigos da 
linha de cima serão: 

100 DATA  174,187,187,187,187, 
187,132 


e os da linha de baixo: 


110 DATA 128,143,143,143,143, 


143 
Para concatenar os códigos em uma 


única figura, proceda assim: quando o 
cursor terminar de traçar o último ca- 


ractere da linha de cima (o 132), faça-o 
descer uma linha e recuar sete posições 
(número de bytes da linha de cima do 
gráfico). Coloque, então: 


105 DATA 26,24,24,24,24,24,24, 
24 


Depois, acione as linhas anteriores ao 
programa que damos a seguir e execute- 
o para ver o resultado. 


10 D3="" 

20 FOR I=1 TO 21:READ N 
30 D$=DS+CHRS (N) :NEXT 1 
40 CLS:PRINT € 288,D5; 


A figura aparecerá instantaneamen- 
te na tela, com um único PRINT! 





COMPACTANDO A DEFINIÇÃO — 


Como a definição da figura inclui 
muitos códigos idênticos, é possível dar- 
lhe uma forma mais compacta, recor- 
rendo à função STRINGS e evitando o 
laço FOR...NEXT e as linhas DATA. 
Digite NEW e entre este programa: 


10 DS = CHARS (174) +8TRINGS3 
(5,187) +CHRS (132) +CHR$S (26) + 
STRINGS (7,24)+CHRAS (128) + 
STRINGS (5,143) 

20 CLS: PRINT €256,D3; 





FIGURAS MAIS COMPLEXAS 


O método de concatenação de códi- 
gos gráficos em uma variável alfanumé- 
rica tem, evidentemente, suas limita- 
ções. Se a figura ocupar várias linhas, 
por exemplo, haverá uma excessiva uti- 
lização da memória, já que precisamos 
de um conjunto de caracteres de contro- 
le entre cada linha. 

A limitação mais séria, entretanto, 
está na impossibilidade de se criar uma 
figura com um número de bytes supe- 
rior a 255, pois este é o comprimento 
máximo de uma cadeia de caracteres no 
BASIC do TRS-80. A melhor alternati- 
va será, então, repartir a figura em vá- 
rios blocos e usar mais de um PRINTO 
para colocá-la inteira na tela. Ao con- 
trário do que parece, tal procedimento 
não reduz a velocidade de animação grá- 
fica e os resultados, em geral, são seme- 





OS CARACTERES DE 


CONTROLE DO CURSOR 

E FIGURAS MAIS COMPLEXAS 
= ANIMAÇÃO DE FIGURAS 
COMPLEXAS 


lhantes aos obtidos com a técnica de mo- 
vimentação do cursor. 

Outra técnica muito útil quando se 
tem figuras grandes e complexas é a cha- 
mada triade de posição, comprimento, 
caractere. Suponhamos que você quei- 
ra desenhar um trenzinho, fazendo o 
pistão da roda se movimentar e nuvens 
de fumaça escaparem da chaminé. O 
mais adequado será desenhar primeiro 
a locomotiva completa, usando a técni- 
ca da tríade e, depois, animar as partes 
que interessam, substituindo sucessiva- 
mente duas figuras (por exemplo, o bra- 
ço do nistão em duas posições). 

A tríade consiste em uma sequência 
de três números, expressa em uma linha 
DATA de definição da figura. O primei- 
ro número determina a posição & on- 
de começa a cadeia de caracteres; O se- 
gundo define a quantidade de caracte- 
res existentes na cadeia; o terceiro indi- 
ca o código gráfico dos elementos iguais 
da cadeia: 


100 FOR I=1 TO 32:READ N1,N2,N3 
110 PRINT € NI, STRINGS3(NZ,N3): 
120 NEXT I 





ACELERE OS SPRITES 


Agora que você já sabe como criar fi- 
guras de caracteristicas semelhantes às 
dos sprites para os microcomputadores 
da linha TRS-80, será fácil fazer anima- 
ção gráfica com eles. É claro que essas 
figuras não possuem uma propriedade 
fundamental dos sprites autênticos (co- 
mo os da linha MSX): a priorização de 
imagens. Explicando melhor, cada spri- 
te recebe um número, que indica ao 
computador se ele vai obstruir ou ser 
obstruído por outro sprite que ocupar 
o mesmo lugar na tela, 

De qualquer maneira, é possível elabo- 
rar programas de animação gráfica re- 
lativamente sofisticados para o TR5-80. 
Um fator importante na animação é o 
tempo que leva o computador para tra- 
çar um bloco gráfico, definido confor- 
me as técnicas apresentadas nesta série. 
Se a execução do desenho for muito de- 
morada — como no caso de blocos grá- 
ficos grandes ou formados por vários 
PRINT & separados —, a animação 
gráfica não sairá perfeita. 
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Na tentativa de construir um mode- 
lo para o mundo que nos cerca, a mate- 
mática aplicada e outros ramos da ciên- 
cia fazem uso de um grande número de 
equações. Estas resultam do exame de 
dados gerados por observações e expe- 
rimentos. A partir desse exame, calcula- 
se uma equação que explica a relação en- 
contrada de maneira que satisfaça os da- 
dos obtidos. 

Tais equações relacionam-se à mais 
variada gama de fenômenos físicos e 
biológicos — desde o crescimento de 
uma planta até a trajetória de um come- 
ta no espaço. Esse tipo de informação 
tem diversos usos, sobretudo porque as 
equações possibilitam prever como as 
coisas se comportarão em: determinadas 
circunstâncias. 

O significado das equações mais 
complicadas pode não ser claro à pri- 
meira vista. Algumas delas só são com- 
preensíveis para os que estão envol- 
vidos num campo específico de pes- 
quisa. Muitas, porém, descrevem 
fenômenos que fazem parte da 
experiência de qualquer pessoa. 
Já vimos um exemplo no pro- 
grama que usa uma fórmula 
para estudar o comporta- 
mento de um objeto em queda 
(veja artigo da página 434). 

Mas, sejam as equações 
complicadas ou não, o re- 
sultado dos cálculos consis- 
te simplesmente num nú- | 
mero — para o tempo ou | 
qualquer outra coisa —, | 
que é mais um modelo pa- | 
ra o mundo real. Além da + 
utilidade já mencionada, es- + 
sas equações têm outro em- 
prego: elas podem ser progra- 
madas no seu micro para pro- 
duzir uma interessante simula- 
ção da realidade. Nesse caso, a 
equação é utilizada para controlar 
a apresentação de tela. Assim, no 
exemplo anterior, poderíamos criar uma 
imagem para mostrar como se compor- 
ta um objeto em queda livre. 

E possível empregar qualquer equa- 
ção de movimento para imitar na tela a 
movimentação real de um objeto. Essa 
idéia está na base de muitos programas 
e de curiosas animações. 


A melhor maneira de compreender 
como isso funciona é trabalhar com um 
exemplo prático — ou seja, tomar uma 
série de equações que podem ser encon- 
tradas em qualquer livro de fisica e 
transformá-las em belas simulações na 
tela. Como exemplo, vamos começar 
com algo fácil de simular: a trajetória 
de uma bola numa mesa de bilhar. 


“O MODELO DA BOLA 





Se você bater numa bola com um ta- 
co (ou lhe der um chute), ela se moverá 

















A matemática fornece vários modelos 
para o mundo real. Utilizando-os 

em seus programas, você pode produzir 
efeitos muito interessantes. Aqui, 
simulamos a trajetória de uma bola. 


em linha reta até encontrar algum obs- 
táculo. Se houver outra força agindo so- 
bre ela — ventos laterais ou gravidade, 
digamos —, a Hajetória e a velocidade 
serão modificadas. Em uma boa mesa 
de bilhar, pode-se desconsiderar a ação 
de ventos, restando apenas uma força 
com que se preocupar: o efeito da fric- 
ção ou atrito com a mesa, que reduzirá 
gradualmente a velocidade da bola. 
Mas, quanto? Aí entra a primeira de 
nossas equações. 

Grosso modo, quanto maior a for- 
ça que atingir a bola no momento da ta- 
cada, mais longe ela irá. Existe uma 











CEEE dos A E ER AR 


equação que calcula a distância a ser 
percorrida por um objeto, dada a força 
inicial e alguns outros elementos, como 
o efeito do atrito. Essa equação tem va- 
riadas aplicações em programação. Pa- 
ra vê-la funcionando, digite e execute es- 
te programa: 


10 CLS 


20 PRINT "1) Bola de futebol 


! qrama longa” 
30 PRINT '"2) Bola de golfe / 


O MODELO DA BOLA 

COMO FAZER A BOLA ROLAR 
UMA MIRA MÓVEL 

COMO A EQUAÇÃO FUNCIONA 
TACADAS MAIS FORTES 


Ena 


grama curta” 


40 PRINT '"3) Bola de qolfe n 
a Lua” 

50 PRINT '"4) Bola em mesa de 

bilhar” 

60 INPUT "Faca a sua opcao”,o 
pt 

7O IF opt<l OR opt>4 THEN 
GOTO 60 

BO IF opt=1 THEN LET Égq=4 

90 IF opt=2 THEN LET fg=1.4 
95 IF opt=3 THEN LET fg=.1 
100 IF opt=4 THEN LET £fg=.7 
110 CLS 
115 PRINT "A velocidade pode 8 
er de 1 a 15 metros por seqund 
o" 





EE CÁLCULO DAS COORDENADAS 
RAÍZES QUADRADAS 
COMO DESACELERAR 

COMO CALCULAR 

A VELOCIDADE DA BOLA 


120 INPUT "Qual a velocidade i 

nicial (m/9)”,v 

125 IF v<l OR v>15 THEN GOTO 
120 

160 LET dist=(v*v) /(2*£fq) 

170 CLS 

210 PRINT AT 2,4;"Sua bola alc 

ancaria” 

220 PRINT AT 7,8B;dist;"metros"” 
250 PRINT AT 18,1; FLASH 1;"Qu 
alquer tecla para continuar” 
260 PAUSE O 

270 GoTo 10 


12 W 


10 CLS 
20 PRINT 696,” 1)BOLA DE FUTEBO 
L / GRAMA LONGA” 

30 PRINT €160,” 2)BOLA DE. FUTEB 
OL / GRAMA CURTA” 

40 PRINT 6224,” 3)BOLA DE GOLFE 
NA LUA” 

50 PRINT 6268,” 4)BOLA EM MESA 
DE BILHAR” 

60 PRINT:PRINT” QUAL SUA OPCAO 
7” 

70 K$=INKEYS:IF KS<"1” OR KS>"4 
” THEN 70 

80 OP=VAL (K$) 

90 IF OP=1 THEN FG=4 

100 IF OP=2 THEN FG=1.4 

110 IF OP=3 THEN FG=.1 

120 IF OP=4 THEN FG=.7 

130 CLS 

140 PRINT” A VELOCIDADE PODE SE 
R DE 1 À 15 METROS POR SEGUNDO” 

150 PRINT: INPUT" QUAL A VELOCID 
ADE INICIAL QUE VOCÊ DESEJA D 
AR (M/8)";VE | 

160 IF VE<1I OR VE>15 THEN 130 
170 DI=(VEXVE) /(2*FG) 

180 CLS 

190 PRINT"SUA BOLA ALCANCARIA”, 
DI;"METROS” 

200 PRINT €449,"QUALQUER TECLA 
PARA RECOMECAR” 

210 IF INKEYS="" THEN 210 

220 Goro 10 


Para rodar o programa no TRS-80, 
modifique os números utilizados nas 
instruções PRINTO para o dobro dos 
que estão na listagem. 


nl 


| NH 
dia A 
FFhT] 


10 CLS:COLOR 15,4,4:DEFENG D 
20 LOCATE 5,5:PRINT"1) Bola de 
futebol em grama longa” 











no 


30 LOCATE 5,7: PRINTO2) 
golfe em qrama curta” 
40 LOCATE 5,9: PRINT"3) Bola 
golfe na lua” 

50 LOCATE 5,11:PRINT"4) Bola em 
mesa de bilhar” 

60 LOCATE 7,18:PRINT"Escolha su 
a opção:”"; 

70 KS=INKEYS:IF KS5<"1” 
* THEN 70 

BO OP=VAL (KS) 

90 IF 0P=1] THEN FG=4 
100 IF 0P=2 THEN FG=1.4 
110 IF 0P=3 THEN FG=.1 
120 IF 0P=4 THEN FG=./ 


Bola de 


de 


OR KS>"4 


130 CLS 

140 PRINT:PRINT” 

em metros por segundo 
de l a 15.7 

150 PRINT: INPUT” Qual velocida 

de inicial (em m/9)":VE 

160 IF VE<1l OR VE>215 THEN 130 
170 DI=(VE*VE)/(2*EG) 

180 CLS 

190 PRINT:PRINT" Sua bola perc 

orreu ";DI;"metros” 

200 LOCATE 0,12:PRINT"Pressione 
qualquer tecla para recomeçar” 
210 IF INKEYS="" THEN 210 

220 GOTO 10 


A velocidade 
pode ser 





LO HOME 

20 HTAB 5: VTAB 5: PRINT "1) B 
OLA DE FUTEBOL EM GRAMA LONGA” 
30 HTAB 5: VTAB 7: PRINT "2) B 
OLA DE GOLFE EM GRAMA CURTA” 

40 HTAB 5: VTAB 9: PRINT *3) B 
OLA DE GOLFE NA LUA” 

50 HTAB 5: VTAB 11: PRINT “4) 
BOLA EM MESA DE BILHAR” 

60 HTAB B: VTIY 15: PRINT “ESC 
OLHA SUA OPCAO *; 

TO GET KS: IF KS < "1º OR KS > 








INI SUA 


"4" THEN 70 
BO OP = VAL (K3) 
90 IF OP = 1 THEN FG = 4 


100 IF OP = 2 THEN FG = 1.4 

110 IF OP = 3 THEN FG = .l 

120 IF OP = 4 THEN FG = ./ 

130 HOME 

140 PRINT : PRINT *” A VELOCID 

ADE EM METROS POR SEGUNDO PO-DE 
SER DE 1 A 15." 

150 PRINT INPUT * QUAL A VE 


LOCIDADE INICIAL (EM M/S) ";VE 


160 IF VE < 1 OR VE > 15 THEN 
130 

170 DI = (VE * VE) / (Z * FG) 
180 HOME 

190 PRINT PRINT * SUA BOLA 


PERCORREU ";DI;”" METROS” 
200 VTAB 12: PRINT "PRESSIONE 
QUALQUER TECLA PARA RECOMECAR” ; 


210 GET K$S 
220 GOTO 10 


O programa começa perguntando a 
respeito das condições em que se encon- 
tra nossa bola hipotética. Em seguida, 
calcula a distância que ela percorreria, 
para qualquer velocidade inicial que vo- 
cê escolher. Vários fatores — como atri- 
to, massa e gravidade — são levados em 
conta. 

A equação usada é a seguinte: 


Distância = pts 
2*fg 
O v corresponde à velocidade inicial 
e fg ao valor que engloba a gravidade 
e o atrito. Obviamente, o valor de fg é 
diferente para cada uma das opções do 
programa. 


OS RESULTADOS 





A equação é solucionada na linha 160 
do programa do Spectrum ou 170 do 
dos outros micros. Você pode ver que, 
embora na equação haja uma potencia- 
ção, não há sinal dessa operação (1) na 
linha referida. Ocorre que os computa- 
dores calculam mais rapidamente somas 
e multiplicações do que potências. As- 
sim, quando o número está elevado ao 
quadrado (nosso caso), é melhor 
multiplicá-lo por ele mesmo (v*v) do 
que elevá-lo à segunda potência (v 1 2). 

A opção 3 — bola de golfe na Lua 
— fornece resultados muito maiores que 
as demais porque o seu valor para fg é 
bem menor que o das outras opções, 
uma vez que a gravidade na Lua corres- 
ponde a somente um sexto da gravida- 
de na Terra. 

A última opção — a da bola na me- 
sa de bilhar, com a qual trabalharemos 
a seguir — também oferece resultados 


altos, porque o atrito é muito pequeno 
em relação ao da grama. 

Os valores do programa para o atri- 
to e a gravidade são apenas aproxima- 
dos, não exatos. Porém, dão uma idéia 
razoável de como uma equação desse ti- 
po pode ser usada dentro de um progra- 
ma para prever a distância percorrida 
por um objeto sob diversas circunstân- 
cias. Mas ainda não pudemos visualizar 
o objeto em movimento, 


A BOLA EM AÇÃO 


A equação apresentada calcula a dis- 
tância percorrida por um objeto, mas 
assume que não há nada no caminho de- 
le. A opção da bola de bilhar, no pro- 
grama dado, fornece um bom exemplo: 
o resultado pode ser uma distância de 
10 metros. Mas mesas de bilhar não têm 
esse tamanho: a bola rebateria nas bor- 
das da mesa. 

Ao contrário do comportamento im- 
previsível de uma bola de futebol sobre 
a grama, uma bola de bilhar reage de 
maneira muito regular quando bate con- 
tra a borda da mesa (a não ser que te- 
nha tomado um efeito giratório). Ela re- 
bate espalhando o ângulo de incidência 
(o ângulo com que a bola atinge a bor- 
da). Observando a figura da página 673, 
você entenderá melhor o que ocorre. A 
bola saiu do ponto a e moveu-se pela re- 
ta tracejada até parar no ponto b. Co- 
mo você pode ver, os ângulos formados 
pela linha da trajetória da bola e uma 
reta perpendicular à borda da mesa são 
simétricos. 

Mais uma vez, a matemática aplica- 
da fornece uma equação para demons- 
trar este princípio. Com isso, podemos 
fazer um programa que simule a traje- 
tória da bola na mesa rebatendo em uma 
ou mais bordas. 

O quadro da última página deste ar- 
tigo mostra as equações que calculam as 
posições da bola após bater contra qual- 
quer uma das bordas da mesa. Embora 
pareça complicado, seu computador faz 
os cálculos muito rapidamente. 


10 BORDER 4: 
CLS 
60 LET bx=-128: LET by=76: LET 
cx=-100: LET cy=112: LET nx”= 
100: LET ny=112 
90 FOR n=6 TO 20: PRINT 
PAPER 7Z7;AT n,2;" 
*.: NEXT n 
100 CIRCLE OVER 1L;bx,by,4 
110 PLOT OVER 1;cx-4,cy: DRAW 
OVER 1;8,0: PLOT OVER l;cx, 
cy-4: DRAW OVER 1;0,8 


PAPER 4: INK O: 





Os ângulos formados pela trajetória 

da bola de bilhar e uma reta perpendicular 

à borda da mesa são simétricos. 

120 LET ag=INKEYS: IF aS="* 

THEN GOTO 120 

130 IF INKEY$="a” AND cy>12 

THEN LET ny=zcy-2: GOTO 190 
140 IF INKEYS="q” AND cy<1l22 
THEN LET ny=cy+2: GOTO 190 
150 IF INKEYS="p” AND cx<236 
THEN LET nx=cx+2: GOTO 190 
160 IF INKEY$S="o”" AND cx>20 

THEN LET nx=cx-2: GOTO 190 
170 IF INKEYS=CHRS 32 THEN 

GOSUB 500: GOTO 300 

190 PLOT JGOVER 1;cx-4,cy: DRAW 
OVER 1;8,0: PLOT OVER l;cx, 

cy-dá: DRAW OVER 1,0,8 

200 LET cy=ny: LET cx=nx 

210 GoTo 110 

300 IF INKEY$="" THEN GOTO 
300 

305 CLS 

310 PRINT AT 2,5;"ALCANCE="; 
INT (p*p*100/(18*18*.4))/100 
320 PRINT AT 5,5;" VELOCIDADE 1 

NICIAL="; INT (ABS (p*100/18))/ 
100 

330 PRINT AT 10,8;"Outra vez *? 
(m/n)” 

340 LET aS=INKEYS: IF aS<>"a” 

AND ag<>"n”" THEN GOTO 340 


350 IF ag="a”* THEN CLS : GOTO 
90 

360 PAPER 7: CLS STOP 

500 IF cx=bx AND cy=by THEN 


LET p=0: RETURN 
510 LET p=0 
515 PRINT AT 0,0;” 


520 LET p=p+2: 
goTo 510 

530 PLOT p-1,16B: DRAW 0,7: 
PLOT p,168: DRAW 0,7 

540 IF INKEYS=CHRS 32 THEN 
Goro 520 

550 CIRCLE OVER 1l;bx,by,4 

560 LET dx=cx-bx: LET dy=cy-by 
570 LET v=-p/18: LET sa-=SQR (dx 


IF p=256 THEN 











rdx+dy*dy) 

590 LET t=] 

600 PLOT bx=.5,by+.5 

610 LET vx=v*dx/sq: LET vy=v* 

dy/sq 

620 LET bx=bx+vx*Lt-SCN vx*.1*t 
*t: LET by=by+vy*L-9SON vy*.1*L 
*t 

630 LET v=v-.1 

640 IF ABS v<.1l THEN GOTO 700 
650 IF bx<1l5 THEN LET dx=-dax: 
LET bx=30-bx 

660 IF bx>239 THEN LET dx=-dx 
: LET bx=478-bx 

670 IF by<B THEN LET dy=-dy: 


Como variar a velocidade de simulação 
do movimento? 

Em primeiro lugar, é necessário es- 
tabelecer a distinção entre velocidade 
simulada de deslocamento da bola (ou 
de um corpo qualquer), medida em 
cm/s ou outra unidade de velocidade, 
e velocidade real de deslocamento da 
imagem da bola na tela. 

A velocidade real com que a bola se 
deslocará na tela depende de muitos fa- 
tores. Um deles é o tempo que o inter- 

pretador BASIC leva para resolver to- 
das as equações matemáticas que re- 
gem o modelo cinemático. Esse tem- 
po varia conforme o computador e a 
eficiência do programa. Um micro da 
linha MSX, por exemplo, é bem mais 
rápido para resolver equações do que 
| um ZX-B1. Este divide o tempo total de 
| execução entre UCP e manutenção da 
tela, o que retarda o cálculo, pois tor- 
na necessário o uso de SLOW para que 
a trajetória da bola seja exibida na tela. 

A eficiência do programa também é 
importante. Um número excessivo de 
substituições nas equações retarda a 
solução. Podemos, assim, aumentar a 
eficiência, usando alguns truques, co- 
mo a inclusão de poucas equações ou 
a colocação de várias delas em uma 
única linha de comando. 

importante, ainda, considerar que 


o incremento de distância nas direções | 


X e Y (DX e DY) afeta o número de pon- 
tos de trajetória calculados por segun- 
do. Quanto menores esses valores, 
mais fiel será a simulação e mais pre- 
cisos serão os resultados dos cálculos. 
Infelizmente, a velocidade diminuirá. 
Usar valores muito altos de DX e DY, 
por outro lado, é perigoso, pois a simu- 
lação pode ficar pouco realista. 








LET by=16-by 

680 IF by>127 THEN LET dy=-dy 
LET by=254-by 

690 GOTO 600 

710 IF bx<19 THEN LET bx=20 


720 IF bx<235 THEN LET bx=235 
730 IF by<l2 THEN LET by=12 
740 IF by>123 THEN LET by=123 
750 CIRCLE bx,by,4: RETURN 


10 PMODE 3,1:PCLS:DIM B(2),BL(2 
) C(0) 

30 DRAW" BMS, OC3IFRFD6GLGHL Z2HUGE” 
:PAINT(5S,5),3 

40 DRAW" BM20, 0C2D2NLR2DL3FD”" 

60 GET(18,0)-(23,5),€,6 

70 PCLS 4:SCREEN 1,0 

80 LINE (18,58)-(230,170),PRESET 
+. BF 

90 BX=123:BY=110:CX=125:CY=112: 

NX=125:NY=112 

100 PUT (BX,BY)- (BX+9,B7+10),B,0 
R 

110 PUT(CX,CY)-(CX+5,CY+5),C,0R 
120 NX=CX:NY=CY 

130 IF PEEK(341)=247 THEN NY=NY 
-2:G0TO 190 

140 IF PEEK(342)=247 THEN NY=NY 
+2:G0To 190 

150 IF PEEK(343)=247 THEN NX=NX 
-2:G0TO 190 

160 IF PEEK(344)=247 THEN NX=NX 
+2:GOTO 190 

170 IF PEEK(345)=247 GOBUB 500: 
GOTO 220 

180 GgoTo 100 

190 IF NX<18 OR NX>225 OR NY<5B 
OR NY>165 THEN 120 

200 PUT(CX,CY)-(CX+5,CY+5),BL,P 
SET 

210 CX=NX:CY=NY:GOTO 100 

220 PUT(BX,BY)-(BX+9,BY+10),B,0 
R: PUT(CX,CY)-(CX+5,CY+5),C,0OR 
230 AS=INKEYS 

240 IF INKEYS="" THEN 240 

250 CLS:PRINT €33,"ALCANCE="; IN 
T(P*P*100/(18*18*.4))/100 

260 PRINT 697," VELOCIDADE INICI 
AL="; INT (ABS (P*100/18))/100 

270 PRINT 6225," QUER RECOMECAR 
(S/N) 7?" 

280 AS=INKEYS:IF AS<>"S8”" AND AS 
<>"N”" THEN 280 

290 IF AS="8" THEN SCREEN 1,0:G 
oTO 100 

300 CLS: END 

S00 IF CX=BX+2 AND CY=BY+2 THEN 
RETURN 

510 P=1 

520 P=255 AND (P+2):POKE 345,25 

5 

INE (P+4,0)-(255,6), PRESET,BF 

540 SOUND P,1l:IF PEEK(345)=247 

THEN 520 

550 LINE(18,58)-(230,170),PRESE 

T,BF 

560 DX=CX-BX-2:DY=CY-3-BY 

570 V=P/18:80=8QR (DX*DK+DY*DT) 


580 BX=BKX+4 :BY=BY+5:T=1 

600 PSET(BX+.5,BY+.5,3) 

610 VX=V*DX/8Q:VT=VADT/SQ 

620 BX=BK+VX*T-SON(UVX)*. 1*TAT:B 
Y=BY+VYXT-SON(VY)*.1*T*T 

630 V=V-.1:IF ABS(V)<.1 THEN 7/0 


0 

650 IF BXC<18 THEN DX=-DX:BX=36- 
BX: SOUND 5,1 

660 IF BX>230 THEN DX=-DX:BX=46 
0-BX: SOUND 5,1 

670 IF BY<58 THEN DY=-DY:BY=116 
-BY: SOUND 5,1 

680 IF BY>170 THEN DY=-DY:BY=34 
0-BY: SOUND 5,1 

690 GoTo 600 

700 BX=BX-4:BY=BY-5 

710 IF BX<18B THEN BX=18 

720 IF BX>221 THEN BX=221 

730 IF BY<58 THEN BY=58 

740 IF BY>160 THEN BY=160 

750 RETURN 


io 


10 CLS:COLOR 15,15,15:SCREEN 2, 

O 

15 BX=123:BY7=-100:CX=123:CY=100: 

NX=CX:NY=CY 

20 RESTORE:FOR 1I=1 TO B 

30 READ A:S19=S1S+CHARS (A) :NEXT 

40 FOR I=1 TO 8 

50 READ B:9258=525+CHABS (B) :NEXT 

60 SPRITES (0)=515S 

70 SPRITES (1)=525 

BO LINE(18,38)-(230,170),12,BF 

100 PUTSPRITEO, (BX,BY),8B 

110 PUTSPRITEL, (CX,CY),15 

120 KS=INKEYS:IF K$=""THEN 120 

130 IF K$=CHA5 (28) THEN NX=NX+2 
“GOTO 190 

140 IF KS=CHRS (29) 
“GOTO 190 

150 IF KS=CHRS5S(30) THEN NY=NY-2 
“GOTO 190 

160 IF KS5=CHAS (31) THEN NT=NT+Z 
“GOTO 190 

170 TF KS$=CHRS (32) THEN GOSUB 5 

0O:GOTO 220 

180 GOTO 120 

190 IF NX<1IBOR NX>225 OR NY<3J8 

OR NY>165 THEN NX=CK:NT=CYT:GOTO 
120 

200 CX=NX:CY=NY:GOTO 100 

220 KS=INKEYS:IF K3=""THEN220 
230 COLOR 15,4,4:SCREENO: LOCATE 
5,5:PRINT"Distância percorrida 
+ ": INT(P*P*100/(18*18*.4))/100 
240 LOCATE 5,8:PRINT"Velocidade 


THEN NX=NX-2Z 


inicial: "; INT(ABS(P*100/18)Y/ 
100 
280 LOCATE 5,11:PRINT"Outra vez 
? (5/N)* 
260 KS=INKEYS: IF K5<>"5” AND KS 
<>"N”" THEN 260 


270 IF K$="S" THEN COLOR15,15,1 


5: SCREEN 2,0:COTO 20 ELSE CLS: 
END 

500 IF CX=BX AND CY=BY THEN RET 
URN 

510 P=1 

520 P=255AND(P+2) 

530 LINE(P,0)-(P+2,6),6,BF:LINE 











E tá ERR 








| (p+4,0)-(255,6),15,BF 60 NEXT : POKE 232,00: POKE 23 100 
| 540 IF INKEYS<>CHRS(32) THEN 52 3,03 240 PRINT : PRINT "MAIS UMA VE 
| Ú 80 BX = 123:BY = 110:CX = BX:CY Z? *; 
560 DX=CX-BK:DY=CY-BY = BY:NX = CX:NY = CY:P = 1 250 GET AS: IF AS < > "S” AND 
570 V=P/18:S0=SOR (DX*DX+DY*DY) 90 HCOLOR= O: FOR I = 30 TO 15 AS € > "N” THEN 250 
580 T=1 O: HPLOT 30,1 TO 250,1: NEXT : 260 IF AS = "S” THEN HOME : G 
600 PSET(BX+4.5,8Y+5.5),15 HCOLOR= 3 oTO 90 
605 PUTSPRITEO, (BX,BY),8 100 SCALE= 1: ROT= 0: DRAW 2 A 270 TEXT : HOME : END 
61U VX=V*DX/SO:VY=V*DY/5SOQ T CX + 4,C7 + 4 500 IF CX = BX AND CY = BY THE 
620 BX=BX+VX*T-SGN (VI) *. L*T*T:B 110 DRAW 1 AT BX,BY N RETURN 
T=BY+VI*T-SGN (VY)*.1I*T*T 120 GET AS 510 K = 2: HCOLOR= K 
630 V=V-.1:IF ABS(V)<.1ITHEN700 130 IF AS = "K” THEN NX = NX + 520 P= P+K: IFP = 255 THEN 
650 IFEX<CIBTHENDX=-DX: BX=42-BX 2: GOTO 190 K = -— 2: HCOLOR= 1 
660 IFBX>222THENDX=-DX:BX=444-B 140 IF AS = "J” THEN NX = NX - 525 IFP = 1 THENSIO 
X 2: GOTO 190 530 HPLOT P- 1,0 TO P - 1,8: 
670 IFBY<3IBTHENDY=-DY:BY=76-BY 150 IF AS = "I” THEN NY = NY - HPLOT P,0 TO P,8B 
680 IFBY>162THENDY=-DY:BY=324-B 2: GOTO 190 540 GET AS: IF AS = CHARS (32) 
Y 160 IF AS = *"M” THEN NY = NY + THEN 520 
690 GoToO 600 2: GOTO 190 560 DX = CX - BX:DY = CY - BY 
700 RETURN LZ0 IF AS = CHAS (32) THEN G 570 UV =P / 18:80 = SQR (DX * 
1000 DATA 0,28,62,127,127,127,6 OSUB 500: GOTO 220 DX + DY * DT) 
2,28 180 GOTO 120 Ss8B0 T = 1 
1010 DATA 0,0,8,8,62,8,8,0 190 IE NX < 30 OR NX > 250 OR 600 DRAW 2 AT CX + 4,C7Y + 4: D 
NY < 30 OH NY > 150 THEN NX = € RAW 1 AT BX,BY 
[al | [7-4] X:NT = CY: GOTO 120 610 UVX = VU * DX / SO:VY = V *D 
mn BpaSa 200 GOSUB 750 Y / 80 
210 CX = NX:CY = NY: GOTO 100 615 HPLOT BX + 4 - ( SGN (VX) 
10 HOME : HGR : HCOLOR= 1: HPL 220 VTAB 21: PRINT "DISTANCIA * 6),BY + 4 - ( SGN (VT) * 6) 
OT 0,0: CALL 62454 PERCORRIDA: ":; INT (P * P * 100 620 MX = BX + VX * T - SGN (UX 
30 FOR I = 1 TO 65 / (18 * 18 * .4)) / 100 JR IRTATME=BYA+AVTETO 
40 READ A 230 PRINT "VELOCIDADE INICIAL: - SGN (VY) *.]*T*T; 7 
50 POKE 767 + I,A ": INT ( ABS (P * 100 7 18)) 4 630 V =V-.l: IF ABS (UV) < 
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1 THEN 700 

650 IF MX < 30 THEN DX = - DX 
“MMX = 64 - MX 

660 IE MX > 240 THEN DX = = 
X:MX = 480 - MX 

670 IF MY < 30 THEN DT = - DY 


MT = 64 - MI 


680 IF MY > 140 THEN DT = - D 
TY:MY = 280 - MY 

690  GOSUB 750:BX = MX:BY = MT: 
GoTo 600 

700 RETURN 

750  HCOLOR= O: DRAW 1 AT BX,BY 
' DRAW 2 AT CX + 4,CY + 4; HCOL 
OR= 3: RETURN 

1000 DATA 2,0,6,0,45,0,9,45,4 


5,21,63,63,63,23,45,45,45,45,62 
,63,63,63,55,45,45,45,45,62,63, 
63,63,55,45,45,45,45,30,63,63,6 
3,14,45,45,150,0 

1010 DATA 36,36,55,54,62,63,5 
5,45,45,45,45,37,63,191,50,54,3 
9,36,4,0 


Para o TK-2000, faça as seguintes 
modificações no programa anterior: 


10 HOME : HGR HCOLOR= 1 
15 FOR I =1 TO l60: HPLOTJI,I 
TO 279,1: NEXT 


O programa desenha um retângulo 
no meio da tela: esta é a área (ou a me- 
sa) na qual o objeto pode se mover. 


| “UMA MIRA MÓVEL 


No meio do retângulo há uma bola 
e, também, um cursor que pode estar es- 
condido atrás dela. No Spectrum, pres- 
sione a tecla Q para movê-lo para cima, 
A para baixo, O para a esquerda e P pa- 
ra a direita; no TRS-Color e no MSX, 
use as setas para a movimentação; no 
Apple e no TK-2000, tecle I para cima, 
M para baixo, J para a esquerda e K pa- 
ra a direita. O cursor é representado por 
uma cruz, que se move por toda a área 
disponível para indicar a direção de mo- 
vimento da bola. Quando tiver posicio- 
nando o cursor no lugar desejado, pres- 
sione a barra de espaços (ou a tecla 
SPACE, no Spectrum). 





Uma linha horizontal surgirá no to- 
po da tela, aumentando à medida que 
se mantém a barra de espaços apertada. 
O tamanho da linha mostra a força com 
que a bola será impulsionada: quanto 
maior a linha, maior a força. 

Assim que se solta a barra de espa- 
ços, o computador limpa o retângulo e 
desenha uma série de pontos que mos- 
tram a trajetória da bola. Os pontos fi- 
cam mais próximos quando a bola per- 
de velocidade. No Apple, para colocar 
a bola em movimento, é necessário pres- 
sionar uma tecla qualquer após ter de- 
finido a força. 

Tente variar a posição do cursor é 
usar diferentes velocidades na bola, pa- 
ra verificar o efeito. 





“COMO FUNCIONA 


Aqui, os princípios da reflexão estão 
muito claros. Toda vez que a bola bate 
contra uma borda, ela rebate no mesmo 
ângulo com que chegou. Isso acontece 
em qualquer lado da mesa. 

O programa começa com a iniciali- 
zação de algumas variáveis e com a es- 
colha do modo gráfico adequado e das 
cores. O do TRS-Color também dimen- 
siona três vetores, define dois UDG (Ca- 
racteres Definidos pelo Usuário) e os co- 
loca nos vetores (um para a bola, um pa- 
ra a cruz € outro em branco). Nos pro- 
gramas do Apple e do M5SX, usam-se 
duas formas predefinidas, uma para a 
bola e outra para a cruz. No MSX, Isto 
é feito com Sprites, que são muito fá- 
ceis de definir e têm a vantagem de não 
apagar outros desenhos da tela que es- 
tejam em plano diferente. No Apple, 
utiliza-se uma tabela de formas. Não é 
tarefa simples montar uma delas sem o 
auxílio de um editor, mas o efeito final 
compensa. Para animar a figura, será 
preciso ter alguns cuidados (como apa- 
gar o desenho anterior). 

As variáveis definidas são BX, BY 
(coordenadas X e Y para a bola); CX, 





CY (coordenadas para a cruz) e NÃ e 
NY (novas coordenadas para a cruz). 
NX e NY são as variáveis usadas para 
mover a cruz pela tela. 

Depois desses procedimentos iniciais, 
um retângulo é desenhado na tela e a ro- 
tina INKEY$ ou GET, que lhe permite 
mover o cursor, entra em ação. À roti- 
na do TRS-Color usa PEEK nas posi- 
ções de teclado, para possibilitar a au- 
to-repetição das teclas. 

Além de verificar a direção em que 
O cursor se move, a rotina checa tam- 
bém se alguma tecla está sendo pressio- 
nada. Caso haja pressão sobre a barra 
de espaços, o computador vai para à 
sub-rotina 500, que verifica a posição do 
cursor: se ele está sobre a bola, a força 
é imediatamente zerada e o computador 
retorna da sub-rotina. O TRS-Color não 
precisa especificar P (a variável para for- 
ça) como 0, já que seu BASIC assume 
este valor para qualquer variável, a não 
ser que se determine algum outro. 

Todo esse procedimento tem a fina- 
lidade de evitar a ocorrência de erros, 
pois, quando o cursor está sobre a bo- 
la, o computador não sabe em qual di- 
reção deve movê-la. 

Se o cursor está numa posição váli- 
da, o fator força é definido como O (no 
Spectrum) ou | (nos outros micros). Is- 
so ocorre no momento em que a barra 
horizontal é apagada. 





“ TACADAS MAIS FORTES 


A variável P é incrementada (tem seu 
valor aumentado) de 2, cada vez que o 
computador detecta uma pressão na 
barra de espaços. Quando atinge o va- 
lor 255, P volta a ser 0 — e a linha hori- 
zontal, que cresce com P, é novamente 
apagada. O computador permanece nes- 
se círculo vicioso até que a barra de es- 
paços se libere. No Apple, em vez da 
força zerar ao atingir o máximo, ela vai 
diminuindo aos poucos. 








Assim que a condição da linha 540 
deixa de ser verdadeira — ou seja, quan- 
do a barra de espaços é liberada — o 
computador continua a execução do 
programa que, neste ponto, varia um 
pouco de uma máquina para outra. O 
Spectrum e o TRS-Color apagam a bo- 
la e traçam sua trajetória. O M5X e o 
Apple mostram a bola em movimento, 
deixando um rastro em sua trajetória. 
Mais adiante, explicaremos como fun- 
ciona esta parte do programa. 

Ao terminar os cálculos e o desenho 
do caminho da bola, o computador re- 
torna para a linha 170. Em seguida, val 
para a linha 300, no Spectrum, ou 220 
nos outros micros. 

O TRS-Color coloca a bola em sua 
nova posição e a cruz no mesmo lugar 
onde ela estava. As declarações OR que 
aparecem no fim de cada PUT evitam 
que a bola ou a cruz apaguem alguma 
coisa (pontos) da tela. 

O computador espera que uma tecla 
seja pressionada para, então, apagar a 
tela e mostrar a velocidade inicial da bo- 
la e a distância percorrida. Em seguida, 
oferece mais uma tentativa. O Apple, 
novamente, apresenta uma diferença: a 
tela não é apagada, pois as informações 
são mostradas na janela de texto (últi- 
mas quatro linhas) da tela de alta re- 
solução. 

Como mostra a figura da página 653, 
para prever a direção que um objeto to- 
mará após bater numa borda, basta es- 
tudar o ângulo com que atingiu a pare- 
de. Infelizmente, os computadores não 
dispõem de nenhum recurso para medir 
ângulos diretamente, precisando recor- 
rer a uma equação. 





CÁLCULO DAS COORDENADAS 


Cada um dos programas define va- 
riáveis para as posições da bola e da cruz 
(há, de fato, dois conjuntos de coorde- 
nadas para a cruz, mas apenas um é usa- 
do aqui). O computador necessita de um 


outro conjunto — que contém a diferen- 
ça entre as posições da cruz e da bola. 
De posse desses dados, pode calcular a 
direção da bola. 

As variáveis que indicam a diferença 
entre as posições são DX e DY, calcu- 
ladas na linha 560. 

O programa utiliza muitas outras va- 
riáveis para os cálculos. O valor de Y, 
variável usada para a velocidade inicial, 
é uma proporção da força que foi esco- 
lhida para impulsionar a bola (o valor 
exato desta proporção varia um pouco 
de um micro para outro, em razão de 
diferenças da tela). 


RAÍZES QUADRADAS 





A variável SQ iguala-se à raiz quadra- 
da de (DX*DX + DY*DY). Esta é, na 
realidade, a distância entre a cruz e a bo- 
la, distância que é calculada por meio 
do teorema de Pitágoras, que estabele- 
ce que, para qualquer triângulo retân- 
gulo, o quadrado da hipotenusa (como 
é denominado o lado maior do triângu- 
lo) é igual à soma dos quadrados dos 
catetos (nome que recebem os outros 
dois lados). 

A variável T corresponde ao intervalo 
de tempo usado nas equações. Se seu va- 
lor for maior, O programa funcionará 
mais rapidamente, porém, menos pon- 
tos serão traçados: como a razão entre 
o tempo e a distância fica menor, o nú- 
mero de pontos também diminui. Assim 
que se determina o intervalo de tempo, 
o computador começa a traçar Os pon- 
tos da trajetória. 

Em seguida, o programa utiliza mais 
duas variáveis para os cálculos. São os 
valores para a velocidade, nos eixos X 
e Y (ou horizontal e vertical). Em ou- 
tras palavras, VX contém a velocidade 
com que a bola se desloca horizontal- 
mente e VY, a velocidade de seu deslo- 
camento vertical. As duas variáveis po- 
dem contar valores negativos: nesse ca- 
so, à bola se desloca da direita para a 








AÇÃO DE MODELOS 
DINÂMICOS 

Para quem não gosta muito de ma- 
temática ou física, pode parecer que os | 
programas deste artigo não têm mui- 
tas aplicações práticas. Na verdade, es- 
tas são numerosíssimas. 

Qualquer pessoa que tenha a aspl- 

| ração de se tornar um programador 
competente — sobretudo nas áreas de | 
jogos e programas educativos — pre- | 
cisa conhecer bem o mecanismo de si- 
mulação de modelos dinâmicos. 

Veja, abaixo, alguns exemplos do 
que você pode fazer usando como ba: 
se os programas deste artigo: 

e um programa que simule um jogo de 
bilhar. Com o joystick ou o teclado, o 
jogador orienta o ângulo e a força de | 
batida de um taco. | 
* um jogo de fliperama, 

* um programa educativo que mostre 
como as moléculas se deslocam em um 
recipiente, colidindo continuamente 
umas com as outras, Quanto maior a 
densidade da matéria (por exemplo, 
densidade de gás), maior o número de 
colisões. Colisões geram calor; assim, 
a temperatura do gás pode ser estima- | 
da a partir de sua densidade ou pres- 
são (esta é uma das leis fundamentais 
da física). 

* um programa educativo para de- 
monstrar o efeito de diferentes coefi- 
cientes de atrito, ou diferentes valores | 
da força de gravidade sobre a movi- 
mentação livre de uma bola. 





UTILIZ 


esquerda (para VX) ou de baixo para ci- 
ma (para VY). 
O valor dessas duas variáveis é cal- 


culado, como se pode verificar na linha 


610, multiplicando-se a velocidade (VW) 
pela variável DX (ou DY) e dividindo-se 
o resultado pela distância entre o cen- 
tro da bola e o centro da cruz (variável 


SQ). 





LEE EPs 
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Como calcular a velocidade da bola 

| O programa recorre a várias equa- 
| ções para calcular a nova posição da 
bola e sua velocidade. Às equações do 
diagrama separam a velocidade em 
suas componentes, com a projeção nos 
eixos X e Y. O computador resolve es- 
sas duas equações para cada posição 
da trajetória da bola, porém, sob uma 
forma um pouco diferente da que foi 
“apresentada aqui. As constantes 
(Xc-Xb) elyc—Xb) são substituídos 
| no programa por DX e DY, Com elas, 
o computador calcula então a nova ve- 
locidade a cada ponto, levando em con- 
sideração a desaceleração. 

Como mostra a fórmula, ele multi- 
plica a diferença entre as coordenadas 
Xe Y da bola e do cursor pela veloci- 
dade real, e divide o resultado pela li- 
nha de baixo da razão: a raiz quadrada 
da diferença entre as coordenadas X da 


A NOVA POSIÇÃO DA BOLA 





Neste ponto, o seu micro já dispõe de 
todos os valores necessários para calcu- 
lar a nova posição da bola. A linha 620 
faz esse cálculo para os novos valores de 
BX ec BY. 

O cálculo para cada uma das coor- 
denadas é o seguinte: 


BX = BX+VX*T-SNG (VX)*.1*T*T 


Embora pareça complicado, não é. A 
fórmula adiciona um valor a BX (ou 
BY) para encontrar a nova coordenada, 
O número pode ser negativo, dependen- 
do da direção em que a bola se deslo- 
que. Em vários pontos desta parte do 
programa para o Apple, você irá encon- 
trar as variáveis MX e MY em lugar das 
variáveis BX e BY, porque o computa- 
dor precisa das coordenadas antigas da 
bola para poder apagá-la, antes de 
desenhá-las em sua nova posição. 

O primeiro passo é adicionar a BX à 
distância que a bola percorre. Esta dis- 
tância é avaliada em dois estágios. Ini- 
cialmente, multiplica-se a velocidade pe- 
lo intervalo de tempo. Lembre-se de que 
a velocidade nada mais é do que a dis- 
tância percorrida dividida pelo tempo 
gasto. Assim, para calcular a distância, 
basta multiplicar a velocidade pelo 
tempo. 

Infelizmente, o programa precisa fa- 
zer um ajuste, pois as velocidades dadas 
pelas variáveis VX e VY não são iguais 





e 








V (xc — xb) 


- Jixc—xb) + (yc—ybJ 


vel X = 


à velocidade real da bola em movimen- 
to — cada uma delas corresponde à ve- 
locidade de deslocamento em um eixo 
(horizontal ou vertical). Isso explica o 
estranho cálculo no fim da fórmula, en- 
volvendo o sinal de VX e uma fração de 
T ao quadrado. 

A função SGN fornece o resultado 1, 
-1 ou 0, conforme o argumento (núme- 
ro dentro dos parênteses) seja positivo, 
negativo ou zero, Ela é usada aqui para 
que se possa, empregando a mesma fór- 
mula, subtrair o valor .1*T*T do termo 
anterior, no caso da velocidade no eixo 
ser negativa, ou somá-lo, no caso da ve- 
locidade ser positiva. 

O resultado após cálculos desta linha 
corresponde à nova coordenada (para o 
eixo X ou Y) da bola. O cálculo é feito 
para os dois eixos. 





COMO DESACELERAR 


O programa diminui a velocidade de 
0.1 e checa se ela é menor que 0.1. Em 
caso afirmativo, o micro vai para o fim 
da rotina, que é explicado abaixo. Em 
caso negativo, quatro linhas são usadas 
para verificar se alguma das bordas foi 
atingida no caminho para 'a nova posi- 
ção (utilizam-se quatro IF...THEN pa- 
ra checar se as novas coordenadas estão 
caindo fora dos limites da mesa). Se a 
bola bate contra uma das bordas, o va- 
lor da variável DX (ou então DY, con- 
forme a borda atingida tenha sido a su- 





e É f ta SS, 


bola e do cursor elevada ao quadrado, 
somada à diferença das coordenadas | 
Y da bola e do cursor elevada ao. 
quadrado. | 

As duas equações seguintes calcu- | 
lam as novas coordenadas X e Y. Veja: 


Xn=Xb+Vx*T-0.01*T 
Yn=Yn+Vy*T-0,01*T 


A nova posição da bola é calculada 
adicionando-se um número à antiga 
coordenada X e Y. Para calcular o nú- 
mero a ser adicionado, multiplica-se a 
velocidade no eixo X ou Y pelo tempo 
e, então, subtrai-se uma pequena fra- 
ção de T ao quadrado, para levar em 
conta a desaceleração. 

À velocidade é diminuída de uma pe- 
quena quantidade (0.1) e, antes de se 
reiniciar o /oop, marca-se a nova posi- 
ção da bola. 


perior ou a inferior) é igualado a menos 
DX. 

Os valores de BX e BY também são 
alterados, de modo a colocar a bola na 
posição correta. Os números subtraidos 
das coordenadas antigas são o dobro 
dos limites da mesa. Assim, a maior 
coordenada da mesa no Spectrum é 127, 
o que significa que, toda vez que a bola 
encontra a borda superior, BX fica 
254-BX (254 é o dobro de 127). 

Depois das checagens, o computador 
calcula o próximo ponto. O fim da ro- 
tina, alcançado quando a velocidade se 
torna menor que 0,1, verifica se a bola 
não vai ser desenhada sobre a borda, an- 
tes de desenhá-la na tela. 

Algumas das coordenadas usadas 
nesta verificação são diferentes daque- 
las usadas na anterior, porque o que vai 
ser desenhado é uma bola e não um pon- 
to — e, é claro, a bola ocupa muito mais 
espaço. Assim, as coordenadas necessi- 
tam de algum ajuste. 





SUGESTÕES 


Você pode dar vários usos ao progra- 
ma aqui apresentado. Uma idéia é 
transformá-lo em um jogo de snooker. 
Se esta for sua opção, bastará acrescen- 
tar algumas caçapas, para que as bolas 
caiam dentro, e uma rotina de contagem 
de pontos. Outra possibilidade é apro- 
veitar esse programa para um jogo de 
squash, ou algo do tipo. 











UM ASSEMBLER 
PARA OTRS80 


Com algumas modificações, o programa 
Assembler que apresentamos 
anteriormente para o MSX servirá 
também para os usuários do TRS-80. 
Veja aqui as adaptações necessárias. 


Traduzir mnemônicos para código de 
máquina certamente é uma tarefa bas- 
tante cansativa. E, além de trabalhoso, 
colocar os códigos usando o monitor de 
seu TRS-80 pode dar origem a muitos 
erros — fatais, quando se trata de lin- 
guagem de máquina. 

Neste artigo, você verá como utilizar 
o computador para fazer esse serviço. 
Com algumas modificações, o progra- 
ma que publicamos anteriormente para 
o MSX servirá também para o TRS-80. 
Ele se destina a sistemas com 48K de me- 
mória, sendo que as funções de grava- 
ção e leitura dos programas em lingua- 
gem Assembly só funcionam em siste- 
mas com disquetes. As outras funções 
do Assembler funcionarão normalmente 
em sistemas com fita cassete. 

Como o programa foi escrito em BA- 
SIC, ele é um tanto lento, levando alguns 
minutos para montar um programa lon- 
go. Contudo, funciona muito bem. 

Digite o Assembler para o MSX apre- 
sentado no artigo da página 401, com 
as seguintes modificações: 


5000 CLS: PRINT6468,"Um instante 
- por favor”:CLEAR 500:DIM KS(1 
10),K(110),M(110):H$="012345678 
9ABCDEF" :G$="0123456789abcdef” 
5200 CLS: PRINTEB6,"ASSEMBLER” :P 
RINT:PRINTTAB(16)"(c) carregar 
do dieco”: PRINT: PRINTTAB(16)"( 
q) gravar no disco”:PRINT:PRIN 
TTAB(16)" (e) editar linha”:PRI 
NT:PRINTTAB(16)" (m) montar”:PR 
INT: PRINTTAB(16)" (a) apagar 11 
nha” : PRINT: PRINTTAB(16)"(1) li 
ptar” 

5210 AS=INKEYS: IFAS=""THEN5S210 
5220 JJ=INSTR("cqemal”,AS) 

5230 IFJJ=OTHENPRINTOS"AS"> 777 
".FORJ=1T0500:NEXT:G0OTO5S200 
5240 CLS:0NJJGOSUB10420,10450,1 





0490,5290,10710,10760 

5250 PAINT: PRINTºQualquer tecla 
para continuar” 

5260 AS=INKEYS: IFAS=""THEN5S260 
5270 GOTO 5200 

10420 INPUT"Nome do arquivo C;A 
RS 

10430 CLS: PRINTQ465,"Carregando 
programa fonte” 

10440 OPEN"I",1,ARS: INPUT4L,N:F 

ORJ=1TON:INPUT4AL, TS (J) :NEXT:CLO 

SE1: RETURN 

10450 INPUT"Nome do arquivo 

R$ 

10460 CLS: PRINT6466,"Gravando Pp 

rograma fonte” 

10470 0OPEN"O",1,ARS:PRINT&L,N:F 

ORJ=1TON:PRINT4&1,CHR$(34);TS(J) 
:CHRS (34) :NEXT: CLOSE1: RETURN 

10490 PRINT"Qual o numero da 11 

nha (multiplo de 10) *; 

10500 INPUTK:CLS 

10510 K2=K/10:IFKZ>NTHENK2Z=N+1: 

N=N+1:TS(K2)="": PRINTO960,"” 

10520 IFK2<.1THENK2=.1 

10530 IFK2=INT(K2) THEN10550 

10540 K2=INT(K2)+1:FOR K3=NTOKZ 

-1STEP-1:TS(K3+1)=TS(K3) :NEXT:N 

=N+1:TS(K2)="" 


10550 P1=16326:P0=P1 

10560 PRINTEB96, K; TAB(6) TS(K2)+ 
STRINGS (20,32):P9=PO+LEN(TS (K2) 
) 

10570 IFPI<POTHENPI=PO 

10580 IFP1>P9THENPl=P1-1 

10590 FOR I=-1 TO 1:POKE Pl+I,3 
2- (1=0) *99:NEXT I 

10600 P7=0:AS=INKEY$S:IFAS=""THE 
N10600 

10610 IFAS=-CHRS (13) THEN10700 
10615 IFAS=CHRS (27) THENRETURN 
10620 IFA$=-CHAS (9) THENPL=P1l+1:G 
OTOl0580 

10630 IFAS=CHRS (8) THENP1=P1l-1:G 
OTO10570 

10640 IFAS-CHRS (10) THENAS="":GO 
T010670 7 

10650 IFAS=CHAS (91) THENAS=-" "+M 
IDS (TS (K2),P1l-P0+1,1):P7=-1:GOT 
010670 

10660 IFAS<” "THEN10600 

10670 IFP1-P0+1>LEN(TS (K2)) THEN 
TS (K2)=LEFTS(TS(K2),PI-PO)J+AS:G 
0T010690 

10680 TS(K2)=LEFTS(TS(K2),PI-PO 
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J+AS+RIGHTS (TS (K2), LEN(TS (K2))- 
P1+P0-1) 

10690 Pl=P1-(LEN(AS)20)+P7:GOTO 
10560 

10700 PRINT664,"":K=K+10:GOTO 1 
0510 

10710 IFN=OTHENCLS: PRINT“Nada a 
apagar” : RETURN 

10720 CLS: PRINT"Qual o numero d 
a linha (multiplo de 10) ”; 
10730 INPUTK:K2=K/10 

10740 IFK2Z>NORKZ<10RK2Z<>INT (KZ) 
THENPRINT"Esta linha nao existe 
" «RETURN 

10750 K=K2:FORK3I=K2TON: TS (K3)=-T 

S(K3+1) :NEXT:N=N-1: PRINTÉ190,K* 
10;"  ";TS(K):; RETURN 

10760 IFN=0THENPRINT"Nada a lis 
tar”: RETURN 

10770 PRINT"Quais os numeros da 
primeira e da ultima linha (mu 
ltiplos de 10)”; 

10780 INPUTK,K2Z:K=INT(K) :K2=INT 
(K2) :K1=K/10:K2=-K2/10 

10790 IFK2>2>NTHENK2Z=N 

10800 IFKI<ITHENKI-1 

10810 IFKZ<KIANDKZ=NTHENRETURN 
10820 IFK2<KITHENCLS: PRINT"Nume 

ros de linha invalidos”:GOTO 10 
770 

10830 CLS:PRINT6192,:FORK3I=KITO 

K2: PRINTK3*10”" "TS(K3) NEXT 
10840 RETURN 


Algumas das linhas do programa — 
a 5450 e a 5750, por exemplo — são 
muito longas e podem dar problemas no 
momento de digitação. Para evitar que 
isso ocorra, digite as linhas exatamente 
como estão impressas, sem incluir espa- 
ços entre os comandos. Se mesmo assim 
o computador não aceitar uma linha de- 
vido ao seu tamanho, aperte ENTER, fa- 
zendo o começo da linha ir para a me- 
mória. Em seguida, edite a linha usan- 
do o comando X da edição. 

Observe que nas linhas 5030, 5050, 
5390 e 5500 encontram-se quatro carac- 
teres em branco entre aspas; nas linhas 
5660 e 5770, três. 

Antes de montar o programa, prote- 
ja o topo da memória do computador 
para ali colocar os códigos. Faça-o lo- 
go que ligar a máquina — ou ativar o 
BASIC —, respondendo adequadamen- 
te à pergunta “Memória usada?””. 




















COMO USAR O PROGRAMA 


Ao executar o Assembler, um menu 
será exibido na tela. Para digitar um 
programa em Assembly tecle *“'e'””. No 
TRS-S0, é necessário pressionar ao mes- 
mo tempo as teclas SHIFT e & (arro- 
ba) para usar as letras minúsculas. O 
computador perguntará, então, o núme- 
ro da linha. Cada instrução deve ficar 
em uma linha numerada, como aconte- 
ce também no BASIC. Os números das 
linhas precisam sempre ser multiplos de 
10 e apenas um mnemônico Assembly 
com seus respectivos operandos deve ser 
introduzido em cada uma delas. 

A primeira linha de um programa em 
Assembly especifica a origem ou ende- 
reço inicial do programa em código. Is- 
to é feito pelo comando org, de modo 





O que é um Disassembler? 

Como o próprio nome indica, o Di- 
sassembler executa uma função opos- 
ta ao Assembler — ou seja, enquanto 
o Assembler é um programa que traduz 
códigos mnemônicos (simbólicos) em 
código de máquina Inúmeros binários, 
diretamente executáveis pela UCP), o 
Disassembler reconstitui o programa 
em linguagem Assembly. 

Como funciona um programa Disas- 
sembler? Da mesma maneira que no 
programa Assembler listado neste ar- 
tigo, a base do processo de tradução 
é uma tabela. Só que o processo de 
desmontagem (disassembler) é mais 
complexo do que o de montagem, já 
que diversas instruções elementares do 
microprocessador Z-BO requerem dois 
ou mais bytes para serem totalmente 
armazenadas (ou seja, código de ope- 
ração, mais operandos ou argumen- 
tos). Como o significado de um deter- 
minado byte na memória é diferente 
conforme o ponto da instrução em que 
ele se encontra, a ordem de leitura do 
programa em código de máquina é mul- 
to importante para o Disassembler. 
Uma única falha de interpretação de 
um byte invalidará toda a desmonta- 
gem até o final do programa. 

O Disassembler não é um programa 
fácil de ser desenvolvido, principalmen- 
te em BASIC, Mas existem diversos 
programas Disassembler comercial- 
mente disponíveis para o TRS-80. 


que a primeira linha de seu programa fi- 
cará mais ou menos assim: 


10 org -10000 


Se os mnemônicos não forem escritos 
em letras minúsculas e os números não 
estiverem todos situados entre — 32768 
e 32767, haverá erro na execução do 
Assembler. 

Os mnemônicos empregados seguem 
o padrão Z-80, com exceção de ret. Usa- 
do sozinho, este comando é aceito nor- 
malmente. Porém, nos casos de retor- 
no condicional — ret nz, por exemplo 
— devemos usar rts em seu lugar. 

Números hexadecimais precisam ser 
precedidos do sinal $; números binários, 
do sinal %. Números que não tenham 
sinal na frente serão interpretados co- 
mo decimais. 

Qualquer palavra que não correspon- 
da a um mnemônico será interpretada 
como um rótulo. Evite palavras pareci- 
das ou números. 

Programas Assembly devem terminar 
com end, comando que indica o final da 
listagem. | 

Para editar uma linha — antes de 
apertar ENTER — utilizam-se as setas 
do teclado: “direita” e esquerda" mo- 
vem o cursor ao longo da linha; “para 
baixo” é usada para inserir e “para ci- 
ma”, para apagar caracteres. A edição 
das linhas é bem lenta. Muitas vezes, os 
caracteres digitados demoram a apare- 
cer no vídeo. 

Para sair do modo de edição, pres- 
stone simultaneamente as teclas SHIFT 
e “seta para cima”. Elas devem substi- 
tuir o ENTER, pois, se o utilizarmos de- 
pois que tivermos digitado a última li- 
nha, uma linha em branco será incorpo- 
rada à listagem. 

De volta ao menu, pressione “|”, pa- 
ra obter uma listagem do programa em 
Assembly na tela, 

Se houve algum erro durante a intro- 
dução do programa, volte ao menu e 
pressione “e”; em seguida, forneça o 
número da linha que deseja mudar. 

Se quiser inserir uma linha entre duas 
já existentes, digite-a usando um núme- 
ro intermediário, no modo de edição. 
Quando listar o programa, verá que ele 
foi renumerado e que a nova linha ocu- 
pa o lugar certo. Porém, apenas uma li- 
nha pode ser introduzida dessa maneira 
de cada vez. 

Para apagar uma linha, volte ao me- 
nu, tecle “a” e forneça o número da li- 
nha que quer eliminar. 

Quando estiver satisfeito com o pro- 
grama Assembly (programa-fonte), vol- 
te ao menu e tecle ''m”” para que ele se- 
ja montado na memória. Ao mesmo 


UTILIZAÇÃO DAS ROTINAS DA ROM 
NO SEU PROGRAMA EM ASSEMBLER 

O Assembler é mais elementar do 
que o BASIC e outras linguagens de 
programação de alto nível. No entan- 
to, é muito difícil utilizá-lo, mesmo pa- 
ra a programação de tarefas simples, 
pois ele exige que todas as operações 
da UCP, da memória, e de entrada/sal- 
da sejam especificadas da maneira 
mais minuciosa possível. 

Mas existe um recurso capaz de ali- 
viar esse cansativo trabalho: chamar as 
rotinas prontas que existem na memó- 
ria ROM do computador. 


Os micros da linha TRS-80 dispõem 
de um sistema operacional elementar 
| é de um interpretador BASIC, ambos | 
gravados na memória ROM. Esses pro- 
gramas contêm centenas de rotinas de 
operação do computador, que podem 
ser chamadas pelo comando JSR (des- 
vio para sub-rotina), seguido do ende- 
reço onde elas começam, 
| Em geral, cada rotina necessita de 
um ou mais argumentos de entrada, e 
| devolve um ou mais argumentos de sal- 
da. Os registros de intercâmbio de da- 
dos variam, mas comumente são os 
| pares de registros internos do Z-B0, co- 
| mo o HL e outros. Para utilizar as roti- 
nas da ROM, você precisará, portanto, 
de um ''mapa da mina”. Existem vá- 
rios livros que fornecem todos os en- 
| dereços e argumentos. 





tempo, o computador fornecerá uma lis 
tagem dos códigos hexadecimais equiva- 
lentes: o programa-objeto. 

Uma vez montado o programa, o en- 
dereço final da rotina em código apare- 
cerá na tela. Se for detectado algum er- 
ro durante a montagem, volte ao menu 
e edite a linha correspondente, repetin- 
do, então, a montagem. 

A opção “g'' do menu grava O 
programa-fonte — os mnemônicos, por- 
tanto — em disco. A opção “'c”' faz a 
operação inversa. 

Para gravar em fita cassete o progra- 
ma que acaba de ser montado, você de- 
ve teclar RESET. Contudo, não pressio- 
ne por muito tempo, nem mais de uma 
vez, sob pena de perder o programa- 
objeto e entrar no monitor de linguagem 
de máquina do TRS-80. Nos sistemas 
sem disquete não há como gravar o 
programa-fonte em Assembly. 

Para executar o programa em códi- 
go, use as instruções DEF USR c A = 
USR(0) (veja artigo da pág. 88). 





LINHA 


Apple Il + 

Apple Il+ 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple + 
Apple ll+ 
Apple Il + 
Apple + 
Apple + 
Apple + 
Apple ll+ 
Apple ll + 
Apple ll+ 
Apple ll + 
Apple Il + 
Apple ll + 
Apple Il + 
Apple + 
Apple Hl+ 
Apple Il + 

Apple Il + 
Apple ll + 
Apple ll + 
Apple ll + 
Apple Il + 
Apple ll+ 
Apple lle 

Apple Ile 


Apple Ile 
MSX 


MSX 


FABRICANTE Po 


Appletronica 
CCE 

CPA 

CPA 

Digitus 
Dismac 
ENIAC 
Franklin 
Houston 
Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Milmar 
Milmar 
Milmar 
Omega 
Polymax 
Polymax 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Unitron 
Victor do Brasil 
Victor do Brasil 
Microcraft 
Microdigital 
Spectrum 
Gradiente 
Sharp 


MODELO 


Thor 2010 
MC-4000 Exato 
Absolutus 


| Polaris 


DGT-AP 
D-8100 
ENIACII 
Franklin 
Houston AP 
DMII 
MX-2001 
MX-48 

MX.64 
Maxitronic | 
Crafll Plus 
Apple Il Plus 
Apple Master 
Apple Senior 
MC-400 
Maxxi 

Poly Plus 
Microengenho | 
Spectrum ed 
Venus ll 

SICI 

API 

Elppa ll Plus 
Elppa Jr. 
Craftlle 
TK-3000 He 


"Microengenho ll 


Expert GPC4 
Hotbit HB-8000 


FABRICANTE 


Appletronica 
Apply 

CCE 

CPA 

CPA 
Codimex 
Digitus 
Digitus 
Digitus 
Dismac 
Dismac 
Dismac 
Dynacom 
ENIAC 
Engebras 
Filcres 
Pranklin 
Gradiente 
Houston 
Kemitron 
LNW 

LZ 

Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Microcraft 
Microdigital 
Microdigital 
Microdigital 
Microdigital 


MODELO 


Thor 2010 
Apply 300 
MC-4000 Exato 
Absolutus 
Polaris 
CS-6508 
DGT100 
DGT-1000 
DGT.AP 
D-8000 
D-8001/2 
D-8100 
MX1600 
ENIACII 
AS+1000 
NEZ-8000 
Franklin 
Expert GPC1 
Houston AP 
Naja 800 
LNW-B0 
Color 64 
DMI 
MX-2001 
MX-48 
MX-64 
Maxitronic | 
Craft ll Plus 
Caftlle 
TK-3000 Ile 
TK-82C 
TK-83 

TK-85 


PAÍS 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


Brasil 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


LINHA 


Apple Il+ 


o Sinclair ZX-81 


Apple ll + 
Apple + 
Apple ll + 
TRS-Color 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
Apple + 
TRS-80 Mod.! 
TRS-80 Mod. 
Apple ll + 
TRS-Color 
Apple ll+ 
Sinclair ZX-81 
Sinclair ZX-81 
Apple ll + 
MSX 

Apple Il + 
TRS-80 Mod.lll 
TRS-80 Mod. | 
TRS-Color 
Apple Il + 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple Il+ 
Apple lle 
Apple lle 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 


Microdigital TK-90X Brasil 
Microdigital TKS-800 Brasil 


Sinclair Spectrum | 
TRS-Color 


Microdigital TK-90X 
Timex 2000 


Sinclair Spectrum 
Sinclair Spectrum Timex 


Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
TRS-80 Mod.I 
TRS-80 Mod. | 
TRS-80 Mod. | 
TRS-80 Mod.! 
TRS-80 Mod.lil 
TRS-BO Mod.il 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lll 
TRS-80 Mod.lil 
TRS-80 Mod.IV 
TRS-80 Mod.IlV 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 


Apply 
Engebras 


“Filcres 


Microdigital 
Microdigital 
Microdigital 
Prologica 
Ritas 

Timex 
Timex 
Dismac 
Dismac 
LNW 

Video Genie 
Digitus 
Digitus 
Kemitron 
Prologica 
Prologica 
Sysdata 
Sysdata 
Multix 
Sysdata 
Codimex 
Dynacom 
LZ 
Microdigital 
Prologica 


Apply 300 
AS41000 
NEZ-8000 
TK-B2C 
TK-83. 
TK-85 
CP-200 
Ringo R-470 
Timex 1000 
Timex 1500 
D-8000 | 
D-8001/2 
LNW-80 
Video Genie | 
DGT100 
DGT-1000 
Naja 800 
CP-300 
CP-500 
Sysdata Ill 
Sysdata Jr. 
MX-Compacto 
Sysdata IV 
CS-6508 
MX-1600 
Color 64 
TKS-800 
CP-400 


Milmar 
Milmar 


“Milmar 


Multix 
Omega 
Polymax 
Polymax 
Prologica 
Prologica 
Prologica 
Prologica 
Ritas 

Sharp 
Spectrum 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Sysdata 
Sysdata 
Sysdata 
Timex 
Timex 
Timex 
Unitron 
Victor do Brasil 
Victor do Brasil 
Video Genie 


Apple ll Plus 
Apple Master 
Apple Senior 
MX-Compacto 
MC-400 

Maxxi 

Poly Plus 
CP-200 

CP-300 

CP-400 

CP.500 

Ringo R-470 
Hotbit HB-8000 
Microengenho | 
Microengenho Il 
Spectrum ed 
Venus ll 

SICI 

Sysdata Ill 
Sysdata IV 
Sysdata Jr. 
Timex 1000 
Timex 1500 
Timex 2000 
APII 

Elppa Il Plus 
Elppa Jr. 

Video Genie! 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

USA 

USA 

Brasil 
Brasil 
Brasil 
USA 


Apple Il + 
Apple ll + 
Apple Il + 
TRS-B0 Mod.IV 
Apple Il + 
Apple Il + 
Apple l+ 
Sinclair ZX-81 
TRS-80 Mod.Ill 
TRS-Color 
TRS-80 Mod.lll 
Sinclair ZX-81 
MSX 

Apple Il+ 
Apple Ile 
Apple l+ 
Apple Il + 
Apple Il + 
TRS-80 Mod. 
TRS-80 Mod.IV 
TRS-80 Mod.lll 
Sinclair ZX-81 
Sinclair ZX-81 


Sinclair Spectrum 


Apple Il + 
Apple Il + 
Apple ll+ 
TRS-80 Mod. | 


EN an Tin macas 
é, UM LOGUTIE SI qi , 


“INPUT foi especialmente projetado para PN 
“ microcomputadores compatíveis com as sete principais Sinclair E TARSO TK:2000 MSX 


“linhas existentes no mercado. 
ba, então emp a sr 


“Os blocos de textos e listagens de programas po pera 
Eme renes E UM [06] Semp e 
; identificados por meio dos seguintes sim os: TRS-Color pune dl 


ED Dm me eee mo meto mm o em em 





PROGRAMAÇÃO DE JOGOS 


Para chegar ao ouro, você precisará fazer muitas pesquisas e escavações. 
Dinamize seu trabalho, recorrendo aos gráficos. 


PROGRAMAÇÃO BASIC 
Aprofunde seus conhecimentos sobre arquivos de dados 
e veja como transferir informações de um programa para outro. 


PROGRAMAÇÃO BASIC 
Agora que você já conhece os segredos da perspectiva, desenhe as mais diversas 
figuras flutuando no espaço. 





